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PREFACE 


MANUAL OBJECTIVES 


The RT-11, RSTS/E FORTRAN IV User's Guide is intended for 
developing new FORTRAN programs, and compiling and executing 
FORTRAN programs on RT-11 and RSTS/E systems. FORTRAN IV 


elements 
Manual. 


are described in the PDP-11 FORTRAN Language 


use in 
existing 
language 
Reference 


INTENDED AUDIENCE 

This manual should be used only after some knowledge of the FORTRAN 
language, as implemented on the PDP-11, has been acquired. The 
associated document that can be used for this purpose is the PDP-11 
FORTRAN Language Reference Manual . The user should also be familiar 
with the operating system as described in either the RT-11 System 
User's Guide or the RSTS/E System User's Guide . The RSTS/E 
Documentation Directory and the RT-11 Documentation Directory contain 
additional information on the respective documentation sets. 


STRUCTURE OF THIS DOCUMENT 


This manual is organized as follows: 


• Chapter 1, "Operating Procedures," contains the information 
needed to compile, link, and execute FORTRAN IV programs. It 
includes a new section about virtual jobs, and covers 
additional linker options. 




Chapter 
to use 
System. 
arrays, 
memory o 


2 , "FORTRAN IV Operating 
the facilities of the 
It includes information 
program sections, and 
rganization. 


Environment," 
PDP-11 FORTRAN 
about virtual 
run-time erro 


describes how 
IV Object-Time 
and vectored 
detection and 


• Chapter 3, "FORTRAN IV Specific Characteristics," discusses 
FORTRAN IV access methods and input/output, including 
information on logical device assignments and record 
structure. 


• Chapter 4, "Increasing FORTRAN IV Programming Efficiency," 
covers programming considerations relevant to typical FORTRAN 
IV applications. 

• Chapter 5, "Concise Command Language Option," describes how to 
invoke RSTS/E system programs using the Concise Command 

Language• 

• Appendix A, "FORTRAN Data Representation," summarizes internal 
data representation. 
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• Appendix B, "Library Subroutines," describes user-accessible 
FORTRAN Library subroutines. 

• Appendix C, "FORTRAN IV Error Diagnostics," describes compiler 
and Object-Time System diagnostic messages. It includes a 
number of new messages. 

• Appendix D, "Compatibility with Other PDP-11 Language 
Processors," covers FORTRAN language and implementation 
differences. 


ASSOCIATED DOCUMENTS 

The following documents are relevant to RT-11 and RSTS/E FORTRAN IV 
programming: 

• PDP-11 FORTRAN Language Reference Manual 

• RSTS/E FORTRAN Utilities Manual 

• RSTS/E System User’s Guide 

• RT-11 System User*s Guide 


DOCUMENTATION CONVENTIONS 

All monitor and system program command lines are terminated by 
pressing the RETURN key. Since this is a nonprinting character, at 
certain places in the text the notation ® represents the RETURN 
key. 

In examples, user responses shown in upper case characters indicate 
that you should type the characters exactly as shown. 

In format descriptions, uppercase characters represent information 
that must be entered exactly as shown; lowercase characters represent 
variable information that must be supplied by the user. 

Some special keyboard characters require that the CTRL (control) key 
be pressed simultaneously with a second character. These characters 
are denoted by ~ (up arrow) for example; ~Z (CTRL Z). 

Ellipsis marks (...) indicate the omission of one or more words within 
a passage and show that the passage continues in the same vein. 
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CHAPTER 1 


OPERATING PROCEDURES 


1.1 USING THE FORTRAN IV SYSTEM 


Figure 1-1 outlines the steps required to prepare a FORTRAN IV source 
program for execution under the RT-11 or RSTS/E executive: (1) 
compilation, (2) linking, and (3) execution. 



Figure 1-1 Steps in Compiling and Executing a FORTRAN IV Program 


Step 1 in Figure 1-1 is initiated by running the FORTRAN IV Compiler, 
FORTRAN, accompanied by a command string that describes the input and 
output files, and desired options to be used by the compiler. The 
compiler generates an object file which must be linked by the Linker 
prior to execution. 

Step 2 is initiated by running the Linker, LINK, accompanied by a 
similar command string. The Linker combines all program units and the 
necessary routines from the FORTRAN Library, and generates a memory 
image file. 

Step 3 is initiated by the monitor RUN command. 


1.1.1 Compiler-Generated Code 

The FORTRAN IV compiler translates the symbolic (FORTRAN) program into 
an object program in binary form, resulting in machine instructions. 
If you find that procedures and instructions in a high level language 
like FORTRAN sometimes restrict your freedom to handle data as you 
would like, you can insert an assembly language routine as you find it 
desirable. This process is covered more fully in Section 2.3. 
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OPERATING PROCEDURES 


The FORTRAN IV compiler produces two 
program: 


types of object code 


for a 


in-line (PDP-11 machine language) 
threaded (linked OTS references) 


1.1.1.1) is determined at installation time to satisfv the 
configuration in which the compiler is installed. ^ 


J* 1 * 1 * 1 . Code Options - In-line code is selected for RT-11 throuqh the 
keyboard monitor command* options /CODE:EAE, /CODE:EIS or /CODE-FIS- 
and for RSTS/E through options /I: EAE, /I:EIS, or /i:FIS. Th^ou^out 
this guide, the RT-11 option is given first, followed by the RSTS/E 
equivaient in parentheses. Thus: /NOLINENUMBERS (/S). Take care to 

soi r " ° Ptl ° n suitable to available hardwa^ conftgSratioJ 
f°"' e ^"t^'J'-ations wHl not support execution of in-line code. Table 
1-1 shows valid options for certain configurations. 


Table 1-1 

Valid Options vs Configuration 



Ha rdwa re 

Arithmetic 

Options 

Valid Code Options 

Ha rdwa re 



KE11-F 


Configuration 

KE11-A,B 

KE11-E 

KE 11 

/CODE: (/I:) 

PDT-l1/130, 
PDT-11/150 

- 

- 

- 

THR 

LSI-11, 11/03 

- 

- 

NO 

THR 



— 

YES 

EIS, FIS or THR 

11/04, 11/05, 

NO 



THR 

EAE or THR 

11/10, 11/15, 
11/20 

YES 

- 

- 

11/35, 11/40 

NO 

NO 

NO 

THR 


YES 

NO 

NO 

EAE or THR 


NO 

YES 

NO 

EIS or THR 


NO 

YES 

YES 

EIS, FIS or THR 

11/23, 11/34, 
11/44, 11/45, 

- 

- 

- 

EIS or THR 

11/50, 11/55, 
11/60, 11/70 






1 . 1 . 1.2 
produces 
the objec 
physical 
omitting 
However, 
/CODE:THR 
demonstra 


C ?n 6 ii Sel6Ct i° n ,^ nd Error Messages - When the compiler 
in-line code (/CODE: [/I:] followed by EAE or EIS or FIS) 
t program executes at greater speed and generally uses less 
memory. In-line code achieves this optimization! i ar t 

1 ^ rU ^n° nS t0 detect 0r report cef tain error condUW* 
(/I-THR? oDtion 3 in tof error checking by including the 

Pt , h ® compiler command line. Table 1-2 
tes the diagnostic benefits of the threaded code option. 
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OPERATING PROCEDURES 


Table 1-2 

Threaded Code Error Messages 


Error 

Result 


in-line code 

threaded code 

1. The result of an 
integer multiply 
operation can not 
be expressed as a 
one-word integer. 

No diagnostic messaqe 
is produced. 

Execution continues 
and the result of the 
operation is truncated 
to 1*> bits. 

A fatal error occurs 
and the diagnostic 
message: "?Err 1 

Integer Overflow" is 
produced. 

2. A divide by zero 

occurs during integer 
arithmetic. 

No diagnostic message 
is produced and the 
result of the operation 
is undefined. 

A fatal error occurs 
and the diagnostic 
message "?Err 2 

Integer zero divide" 
is produced. 

3. The value of the 

arithmetic expression 
of a computed GOTO is 
less than one or 
greater than the number 
of labels in the list. 

No diagnostic message 
is produced. Execution 
continues at the next 
executable statement. 

The warning diagnostic 
"?Err 4 Computed GOTO 
out of range" is 
produced. Execution 
resumes at the next 
executable statement. 







1.1.2 Pile Name Specifications 

The FORTRAN and LINK commands, respectively, pass file name 
specifications to the FORTRAN IV compiler and Linker. The designator 
.typ (type) is used for RT-11. The RSTS/E equivalent is .ext 
(extension). See Table 1-3 for device specifications, and Section 

1.2.2 for compiler options. 

Each file name specification (filespec) has the form: 


RT-11 

dev:filnam.typ 


where 


RSTS/E 

dev:[p,pn]filnam.ext<prot>/sw 


dev: 


is an optional 
six characters 
code as shown 
name. If the 
storage (DK:) 
structure (SY: 


two to three character name (up to 
for RSTS) specifying a legal device 
in Table 1-3 for a logical device 
device code is omitted, the default 
is used for RT-11 and the public 
) is used for RSTS/E. 


filnam 


is any one to six character alphanumeric file 
name. 


.typ (RT-11) 
.ext (RSTS/E) 


is any zero to three character 
extension. 


alphanumeric 


If one is not specified, the FORTRAN IV Compiler 
supplies, by default, certain extensions as shown 
in Table 1-4. 
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OPERATING PROCEDURES 


The following apply to RSTS/E only: 


tP»Pn] 


<prot> 


a RS T S / E Project (p), programmer number (pn) , 
which is used to identify the account under which 
“ ,e stored. 


the file is 


is a RSTS/E protection code restricting access to 
a file. The degree of restriction is determined 
by a code or combination of codes, as shown in 
Table 1-5. Protection codes have effect onlv on 
output files. y 

/SW a RST S/E option consisting of either or both 

the following RSTS/E file specification switches. 
(Refer to the RSTS/E Programming Manual for 
further information.) 

/CL:n set clustersize of (output) file to n. 

/MO:n use mode n when opening the file. 

The protection code is a string of one to three decimal digits 

filers 6 dearee 'J 9 !® , brackets <>• The protection code determines the 
SnnVf Pf otectlon . on two levels: the actions - reading, 

9 £ d d ® let * ng ~ against which it is protected, and the user or 

user clashes 8 'liich* ^ U l* protected * There are three such 
lumbers* SySt6m recognize s by project-programmer 


1 . 


2 . 


The individual user (owner), 

who is recognized by his programmer number: (200,25). 


The user's project group, 
which is recognized by the 
(200,25),[200,57],[200,70]. 


user's project 


number: 


3. All other users on the system, 

who are recognized by the existence of valid 
project-programmer numbers: (225,60),[250,35),(254,10] 


Typically, a file’s total protection code is the sum of the desired 
conation of Individual codes. A data file wfth proteoUo" 

writing and S deletf ySt h m ?f fault ~ is Protected against reading, 

by 311 USers exce Pt its owner: <60>=4+8+lfi+32 
For detailed information, see the RSTS/E System User’s Guide 
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Table 1-3 

Device Specifications 


Device 

RT-ll 

RSTS/E 

Card reader 

CR: 

CR: 

TA11 cassette (n=0 or 1) 

CTns 

- 

Default storage 

DK: 

SY: 

RKO5 disk (n=*0 to 7) 



RK06 or RKO7 disk (n«0 to 7) 

DMn: 

DMn: 

RPO2 or RP03 disk 

DPn:(n*0 to 1) 

DPn:(n=0 to 7) 

RL01 or RL02 disk 

DLn:(n*0 to 4) 

DLn: 

RM02 or RM03 disk (n*0 to 7) 

- 

DRn: 

RPO4, RPO5 or RP06 disk (n=0 to 7) 

- 

DBn: 

RS03 or RS04 disk (n=0 to 7) 

DSn: 

DSn: 

TC11 DECtape 

DTn:(n«0 to 7) 

DTn:(n*0 to 7) 

TU58 DECtape II 

DDn:(n=0 to 4) 

DDn:(n=0 to 7) 

PDT-11/130 DECtape II(n*=0 to 1) 

PDns 

- 

RX01 floppy disk 

DXns(n=0 to 3) 

DXn:(0 to 7) 

PDT-11/150 floppy disk 

PDn: 


Serial line printer 

LSs 


RX02 floppy disk 

DYn: (n=0 to 3) 

DYn:(n=0 to 7) 

Line printer 

LPs 

LPn:(n*0 to 7) 

TUI6, TE16, TU45, or TU77 magtape (n=0 to 7) 

MMn: 

MMn: 

TUI0, TE10, or TS03 magtape (n*0 to 7) 

MTns 

MTn: 

TS11 magtape (n=0 to 3) 

MSn: 

MSn: 

High speed paper tape punch 

PC: 

PP: 

High speed paper tape reader 

PC: 

PR: 

RF11 fixed-head disk drive 

RF: 

DFO: 

System device 

SY: 

SY: 

Specified unit from which the 



system was bootstrapped 

SYn: 

SYO: 

Current user 



terminal 

TT: 

KB: 

Auxiliary terminal 

- 

KBn: 


For more information on device specifications, refer to the RT—1_1 
System User's Guide and the RSTS/E System User»s Guide . 
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Table 1-4 

File Name Types (Extensions) 


File 

Default Type (Extension) 
on Output File 

Source file 

Object file 

Listing file 

Load Map file 

Save Image file 

Absolute Binary file 

Relocatable Image file 

.FOR 
• OBJ 
. LST 
.MAP 
.SAV 

•LDA (/LDA) 

.REL (/R) Foreground 
(RT-11 only) 


Table 1-5 

File Protection Codes 




Code 

Meaning 

1 

Read protection against owner 

2 

Write protection against owner 

4 

Read protection against owner's project group 

8 

Write protection against owner's project group 

16 

Read protection against all others who do not 
have owner's project number 

32 

Write protection against all others who do not 
have owner's project number 

64 

i Executable program: can be run only 


Individual codes added to the compiled 
protection <64> have meanings different from 
those of the data file protection codes above. 
These compiled codes follow: 

1 

Execute protection against owner 

2 ! 

i 

Read and write protection against owner 

4 

j 

Execute protection against owner's project 
group 

8 i 

Read and write protection against owner's 
project group 

16 

i 

Execute protection against all others who do 
not have owner's project number 

32 

Read and write protection against all others 
who do not have owner's project number 

128 

Program with temporary privileges (normally 
occurs only when file's protection includes 

\o4> ) 
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OPERATING PROCEDURES 


1.1.3 Locating a File 

The FORTRAN IV compiler locates a file by searching the specified 
device for the file name with the specified file type (RT-11), or 
extension (RSTS/E). The compiler searches default storage (public 
structure on RSTS/E) when the device is not specified and assumes .FOR 
when a file type or extension is not specified. 

Under the RSTS/E operating system, the computer seeks the specified 
account [project, programmer] number. When the account number is not 
specified, the compiler searches the current user's directory and 
proceeds to the system library [1,2] if the file is not in the user's 
directory. The protection code identifies the read and write access 
to be granted the user of the located file. If a protection code is 
not specified on output, the system default code (usually 60) is used. 

If the file cannot be located or is protected against the user, the 
compiler prints the following message: 

7FORTRAN-F-FILE NOT FOUND 

A similar form of this message appears if a file name specification 
given to a utility program (such as, MACRO, LINK,) references a file 
that cannot be found or is protected against the user. 


1.2 RUNNING THE FORTRAN IV COMPILER 

The FORTRAN IV Compiler accepts a command string of the form: 
output = input/option (/sw) 


where 


output 


is the output file name specification(s) . 


input is the input file name specification(s). 

/option (RT-11) is one or more options used to request certain 
/sw (RSTS/E) functions from the FORTRAN IV Compiler. Options 

are covered in Section 1.2.2. Options may be 
appended to any file specification in the command 
string. 


Note that imbedded blanks are not permitted in command string 
specifications. 


1.2.1 Under RT-11 (with Keyboard Monitor Commands) 

To compile a FORTRAN program, either of these commands is given: 

FORTRAN[/option...] filespec[/option...][...filespec[/option...]] 
or 

FORTRAN[/option... ] 

FILES? filespec[/option...] [...filespec[/opt ion...]] 

(where filespec represents a source file to be compiled). 
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"jp” Ii}%!, S „“ St poR™jN a „?U , ^eate"S"o«pCj 

the same name as the first input file and qive it a mi V 

p?oduce'an lf OBrfile e f arate *** inPUt fUeS by com ' nas ' FORTRAN Ini 
proauce an .OBJ file for each input file listed. 


For example: 


FORTRAN/LIST/SHOW:ALL/NOLINENUMBERS TEST1+TEST2 


compiles TEST1.FOR and TEST2.FOR together 
listing of the compilation complete with 
listings will be sent to the line printer 
Internal Sequence Numbers (ISNs) in 
disabled. 


and produces TEST1.0BJ. a 
source, storage map and code 
device, LP:. Generation of 
the object program will be 



1.2.1.1 Under RSTS/E 
given: 


To compile a FORTRAN program, the command is 


RUN 

* 


$FORTRAN 


The FOKTRAN 
it is ready 


IV Compiler then prints an asterisk 
to accept a command string. 


(♦) to indicate that 


must not be broken over file boundaries. 

f||j nP n U ; e file that asides on a random access device can contain more 

A sample FORTRAN IV Compiler command sequence is shown below: 

RUN $FORTRAN 
‘OBJECT,LIST=FILEI 

^LEl C FOR a frn S \ r K ng dir6CtS the compiler to take the source file 
FILE1.F0R from the current account on the public structure and ouinnt- 

structure _ LIST * LST and OB JECT.OBJ to the current account on the publij 

Either of the compiler output files can be eliminated by omitting its 
file specification from the command string. For example: 

RUN $FORTRAN 
♦FILE1=FILEI 

produces FILEl.OBJ on the default device but no listing file, while 
*,LP:=FILEI 

produces a listing on the line printer, but no object module output. 
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1.2.2 Compiler Options (Switches) 

The FORTRAN IV Compiler command strings utilize specified options 
(switches) of either octal or decimal values on the input and output 
file specifications. Any option of the form /S:n causes n to be 
interpreted as an octal value (as long as n contains only the digit 
0-7); whereas /S:n. causes n to be interpreted as a decimal value. 
RT-11 and RSTS/E FORTRAN IV Compiler options (switches) are described 
in Table 1-6. 

Table 1-6 

Compiler Options (Switches)* 

(defaults are determined at installation time) 


RT-11 

Option 

RSTS/E 

Switch 

Explanation 

/ALLOCATE :n 

- 

Used after the /OBJECT or /LIST 
option to guarantee space for a 
maximum file size of n blocks. 

/CODE:xxx 

/I :xxx 

Selects type of object code to be 
generated. Defaults to value 
selected at installation. The 
valid values are: 



EAE (selects EAE hardware) 

EIS (selects EIS hardware) 

FIS (selects EIS and FIS 

hardware) 

THR (selects threaded code) 

/DIAGNOSE 

/B 

Enables expanded listings of 
compiler internal diagnostic 
information. 

/EXTEND 

/E 

Allows source line input from 

columns 73-80. 

/HEADER 

/o 

Prints an "Options-In-Effeet" 

section prefacing the listing. 

/I4 

/T 

Defaults to two word-integers 
(1*4) (normally defaults to 
one-word integers (1*2)). 

/LINENUMBERS 


Indicates internal sequence 
numbers are to be included in the 
executable program for routine 
diagnostics. 

/LIST[:filespec] 

- 

Generates a listing. A file name 
can be optionally specified. 

/NOLINENUMBERS 

/s 

Suppresses generation of internal 
sequence numbers. 

/NOOBJECT 

- 

Does not generate object files. 

* RT-11 users may use 

with the RUN command. 

the RSTS/E 

switch when the compiler is invoked 

(continued on next page) 
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(default. 

Table 1-6 (Cont.) 

Compiler Options (Switches)* 
are determined at installation time) 

RT-11 

Option 

RSTS/E 
Switch 

Explanation 

* 

i 

i 

i 

i 

/Q 

Inhibits printing names of program 
units (from program, FUNCTION, 
SUBROUTINE, and BLOCK DATA 
statements) as each program unit is 
compiled. Note that .MAIN. refers 
to the main program and .DATA, 
refers to an unnamed BLOCK DATA. 

/NOSWAP 

/u 

Disables USR swapping at run time. 

/NOVECTORS 

/V 

Suppresses array vectoring of 

1 multidimensional arrays. 

/OBJECT ( :fi1espec ] 


Produces an object file (default). 
The destination for the object file 
can be optionally specified. 

/ONDEBUG 

/D 

Compile lines with a "D" in column 
one (for debugging purposes). 

* 

/z 

Causes pure code and pure data 

sections to take RO (read-only) 

attribute. 

/RECORD:n 

/R: n 

Specifies the maximum record length 
(in bytes) on run time I/O 
(4<n<4095). 

/SHOW(:n] 

/L(:n ] 

Specifies the listing options. The 

argument n is encoded as follows: 



0 or null - list diagnostics only 

1 or SRC - list source program and 

diagnostics only 

2 or MAP - list storage map and 

diagnostics only 

4 or COD - list generated code and 
diagnostics only 



Any combination of the above list 
options may be specified by summing 
the numeric argument values for the 
desired list options. For example: 



7 or ALL 

* nm <1 * 


requests a source listing, a storage 
map, and a generated code listing. 

If this option is omitted, the 
default option is /SHOW:3, (/L:3) 
source and storage map. 


with the RUN command. 


(continued on next page) 
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Table 1-6 (Cont.) 

Compiler Options (Switches)* 

(defaults are determined at installation time) 


RT-11 

Option 

RSTS/E 

Switch 

Explanation 

/STATISTICS 

/A 

Prints compilation statistics. 

/SWAP 

- 

Allows the USR to swap over the 
FORTRAN program (default) . 

/UNITS:n 

/N: n 

Allows a maximum of n 
simultaneously open I/O channels 
at run time (l<n<15). 

/VECTORS 

- 

Uses tables to access 

multidimensional arrays (default). 

/WARNINGS 

/w 

Enables compiler warning 
diagnostics; used in conjunction 
with /SHOW (/L) option. 

* 

/X:x xx 

Indicates cross-compilation for 

the target environment specified. 
Compiler diagnostic messages will 
be generated as if compilation had 
occurred under the foreign 

environment. Values are: 

RT (selects RT-11) 

RST (selects RSTS/E) 

RSX (selects RSX-11) 


* RT-11 users may use the RSTS/E switch when the compiler is invoked 

with the RUN command. 


1.2.3 Listing Formats 


You can direct the compiler to furnish any combination of five 


optional sections in the compilation listing. Use 
(switches) described in Section 1.2.2 to call for the list 
in effect, the generated code and the compiler statistics, 
program and the storage map are included by default, 
describes each section and gives an example of the 
included. 


the options 
of options 
The source 
Figure 1-2 
information 


FORTRAN IV listings of generated code list the first instruction 
starting at location 6 of the procedure. This section explains the 
two instructions generated that are not listed. 

The first two lines of code are not generated in the FORTRAN IV 
listings for either subroutines or the main segment. 
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In the case of the main program unit, the two lines generated are: 


JSR R4,$$0TI 

.WORD NAMPTR 

or 

JSR R4,$OTI 

•WORD NAMPTR 


(IN-LINE CODE) 


(THREADED CODE) 


The location that NAMPTR contains is the 
segment name in RAD50, which is the name 
main-program name is specified by means of 
default main-program name, .MAIN., is used. 


address of the two—word 
of the main program. if no 
a PROGRAM statement, the 


In a subprogram unit, the two lines generated are: 

JSR R4,$0TIS 

.WORD NAMPTR 

The location that NAMPTR contains is the address of the two-word 
segment name in RAD50, which is the name of the routine. 
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FORTRAN IV V02.5 Thu 01-May-80 00S40J58 

fEX2=ex2/l:all/i:thr/o/a 
OPTIONS IN effect: 


SOURCE 

MAP 

CODE 

LEAPYEAR 
NOREADONLY 
LRECL=0136 
STAT 
ISNS 
N0C0L80 
USRSWAP 
NODIAGNOSE 
N0INTEGER*4 
NLCHN=06 
NODEDUG 
VECTOR 
NOUARN 
CODE•THR 
LOG 


FORTRAN IV 

V02.5 Thu 01-May-80 00 

0001 

INTEGER INT 

0002 

REAL REAL 

0003 

COMPLEX IMAG 

0004 

DOUBLE PRECISION DBLE 

0005 

DATA INT/100/ 

0006 

REAL = INT/2 + 5. 

0007 

DRLE = REAL/2. + 3.1415926535D0 

0008 

IMAG = CMPLXCREALf 3.21 ) 

0009 

URITE (5 f 10) IMAG 

0010 10 

FORMAT <1X f 2F8•5) 

0011 

STOP 

0012 

END 


FORTRAN IV Storage Map for Program Unit .MAIN. 


Local 

VariablesF .PSECT 

SDATAf 

Size 

= 000030 ( 

12. 

words) 


Name 

Type 

Offset 

Name 

T ype 

Offset 

Name 

Type 

Offset 

DBLE 

R*8 

000020 

IMAG 

C*8 

000010 

INT 

1*2 

000002 


REAL R*4 000004 

Subroutines t Functions t Statement and Processor-Defined Functions. 

Name Type Name Type Name Type Name Type Name Type 
CMPL.X C*8 


Figure 1-2 A Sample Compilation Listing 
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FORTRAN IV 


(ienercited Code for Prodram Unit .MAIN. 


Statement *0006 


000006 

l SN* 

000012 

MOI SMS 

000016 

MI ft IS 

000022 

CF” l * 

000024 

AMF * IS 

000030 

MOT tSM 

Statement # 000 / 

000034 

IS N$ 

000036 

MOI $M!j 

000042 

1‘tf $ J S 

000046 

cn r$ 

000050 

ADU$MS 

000054 

MODtSM 

S t a tern i ■ 

i. t #0008 

000060 

I SN$ 

000062 

REL# 

000066 

REL $ 

000072 

CAL# 

000100 

MOI»#RM 

Statement #0009 

000104 

I SN$ 

000106 

REL# 

000112 

REL# 

000116 

iru# 

000120 

REL# 

000124 

TVC# 

000126 

E(JL# 


#000006 
SI'ATAF #00000.' 
#000002 


#040640 
*MAIAI#000004 


*MAIAT*000004 

#040400 

*UAlAPT*000o20 
*MAI AT#000020 


*0A FAPT#000030 
SMA7 AT#000004 
#000002 CMf-’l-XT#OOOOOO 
* IT A TAT# 000010 


*DATAPf*000016 
•DATAPT#000010 

tUA I'Af #000010 


Statement *0011 
000130 LSN* #000013 
000134 SIP* 


Compilation Statistics! 

Symbol table size! 00091 words 
Internal form sine! 00039 words 
Free dynamic memory! 19983 words 

Compilation time! 00!00!01 

Figure 1-2 A Sample Compilation Listing (Cont.) 
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1.2.3.1 Options Listing - Use the options-in-effeet list as a quick 
reference to the status of each possible compiler option. Those 
preceded by 1 NO' are not in effect. The maximum number of logical 
units that can be concurrently open (NLCHN) and the maximum record 
length (LRECL) are given as the default values or the values specified 
by the /UNITSsn (/N:n) and /RECORD:n (/R:n) options respectively. The 
day of the week, date, and time of compilation and a copy of the 
compiler command string for identification purposes are also 
furnished. 


1.2.3.2 Source Listing - This section lists the source program as it 
appeared in the input file. The compiler adds internal sequence 
numbers for easier reference. Note that internal sequence numbers are 
not always incremented by 1. For example, the statement following a 
logical IF has an internal sequence number two greater than that of 
the IF, because the compiler assigns one for the comparison and one 
for the associated statement. 


1.2.3.3 Storage Map Listing - This section lists all symbolic names 
referenced by the program unit. Local variables are allocated in the 
$DATA psect. The addresses of parameter variables and arrays are 
placed in the $DATA psect at subroutine invocation and are denoted by 
M @" preceding the offset or section name. The listing includes the 
symbolic name, data type, usage, psect, and offset. In the case of 
COMMON blocks, VIRTUAL arrays, and array names, the listing includes 
the defined size in bytes (octal) and words (decimal) as well as the 
dimensions. 


NOTE 

Blank COMMON is described as COMMON 
BLOCK / / in the storage map, but is 

located on a LINK map as a PSECT named 

.$$$$. 


1 . 2 . 3.4 


Generated Code Listing - This 


section contains: 




a symbolic representation of the object code generated by the 
compiler (see Section 2.2). 


includes a location 
the symbolic Object 


offset into 
Time System 


psect $CODE 
(OTS) routine 


name 


• routine arguments of threaded code plus the equivalent 
assembler code for the in-line code. When the /DIAGNOSE (/B) 
compiler option is used, the right-hand coulmn of the in-line 
generated code listing shows those registers available for use 
following an operation. The code generated for each statement 
provides easy cross-reference by showing the same internal 
sequence number (ISN) as was specified in the source program 
listing. 
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1 . 2 . 3.5 
memory 
time for 


usaae 11 duJ?no St fK i8tiC8 T, Th * s sectio " Provides 
usage during the compilation process and ela 

the compilation. 


a report on 
psed wall-clock 


1.2.4 Compiler Memory Requirements 


R T ~11 and RSTS/E differ in the amount of memory available 
compilation, and the options available for obtaini 
Under RT-11, device handlers and the symbol table 
memory during compilation. When more memory 
minimizing the number of different physical 
specified, you can segment the program into 
to compile in the available 


program 
space. 


to each for 
ng additional space, 
require a portion of 
is required after 
devices and variable names 
program units small enough 


Under R!5T S/ E, you acquire additional space by switchinq from a 
nonprrvileged to a privileged account, increasing the system swap 
” ' or . segmenting the program. These options and the amount of 

subsections 6 ^ tre3ted in greater detail in the following 


1.2.4.1 Compiler Memory Requirements Under RT-11 - Durinq 

out 9 of mfm Sev ® ral hundred statements. However, if the compiler runs 
user°s termLa^ ring com P llation ' a " error message is delivered to the 
two^or m «rl n ' see .Section C.l. The program must be divided 

available U " ltS ' ^ t0 C ° mpile in 

symbol table must be resident 


into 

the 


Since device handlers and the 

soei^enr^ 10 "' ”‘r" ize £er«it"JhJ2lcal 

n^mf= f l d h command string and reduce the number of varia 


names to 
generation 


increase the amount of 


memo ry 
ices 
able 

memory available for object code 


foCtrIm ™ 0mpile ^ Memor Y Requirements Under RSTS/E - The RSTS/E 
,ii . compiler acquires the maximum free memory (up to 28K words) 

user 'fl 0 '?* CU f, rent USer * The P^ate ^mory 7 maximum for ^hi 
user s account will never exceed the SWAP MAX currently set bv the 

F^R^rio^eVuser ! 80 th * dy " amIc " e ”° ty "<-«•<' by 

If the compiler runs out 


message is 
this case, 
compilation: 


deliver 
you can 


O i ut . of £f ee space during a compilation, an error 
ed to the user s terminal; see Section C.l. in 


take several actions 


to 


accommodate 


the 


1 . 


If the compilation was attempted by a 
whose private swap maximum is smaller 
maximum, the compilation may proceed, but 
account. This may allow the compiler 
memory area. Or, you can request the 
increase the private swap maximum. 


nonprivi1eged user 
than the system swap 
under a privileged 
to acquire a larger 
system manager to 
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2. If a compilation terminates with insufficient space under a 
privileged account, do either of the followings 


• Ask the system manager to increase the FORTRAN 
compilation size limit to accommodate large 
compilations, or 




Segment the program unit into two or 
program units, and reduce the number 
arrays, and constants to save compiler 
space. 


more smaller 
of variables, 
symbol table 


1.3 LINKING PROCEDURES 

When SYSLIB is created under RT-11 or RSTS/E to include FORLIB, the 
/LINKLIBRARY:FORLIB (/F) option is redundant, because FORLIB is part 
of SYSLIB and is not called separately. 


1.3.1 Linking Under RT-11 

The RT-11 linker, LINK, combines one or more user-written program 
units with selected routines from any user libraries and the default 
FORTRAN IV OTS Library to form the default system subroutine library, 

SYSLIB. LINK generates a single runnable memory image file and an 
optional load map from the one or more object files created by the 
MACRO assembler or the FORTRAN IV compiler. 

The default types for the executable file are .SAV for a background or 
mapped environment program, and .REL for a foreground program. The 
default output device is DK:. 

The default name of the .SAV or .REL file is that of the first 
concatenated input object file specified. When FORLIB resides in 
SYSLIB, the required elements of the FORTRAN library will be linked 
automatically since any undefined global references are correlated and 
resolved through SYSLIB. 

The LINK command adheres to the following syntax: 

LINK[/option...] filespec[/option...][,...filespec[/option...]] 
or 

LINK[/option...] 

FILE? filespec[/option...][,...filespec[/option...]] 

where M filespec" represents the file to be linked and "options" are 
those described in Table 1-7. 
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Table 1-7 

Linker Options Available Under RT-11 




Option 

Explanation 

/ALLOCATE:n 

Guarantees space for a maximum file of n 
blocks. 

/ALPHABETIZE 

Lists program's global symbols 

alphabetically in the load map. 

/BITMAP 

Creates a memory usage bitmap (default 
setting). 

/BOTTOM s n 

Specifies a bottom address for a 

background program. 

/BOUNDARY:value 

Starts a specific program section on a 
particular address boundary. Argument 
value, must be a power of 2. Prompts 
you: 

Boundary section? 

/DEBUG[:filespec] 

Enter name of section, then ® . 

Links ODT to the linked program. 

/EXECUTE!:filespec) 

Designates the executable file. 

/EXTEND:n 

Extends a program section to octal value 
n. Prompt: 

Extend section? 

/FILL:n 

Initializes unused locations in the load 
module to n (an octal value). 

/FOREGROUND 

Generates a .REL file for a foreground 
link. 

[:stacksize] 


/INCLUDE 

Allows subsequent entry at the keyboard 
of global symbols to be taken from any 
library and included in the linking 
process. When the /INCLUDE option is 
typed, the linker prints: 

Library search? 

Reply with the list of global symbols to 
be included in the load module. Press 
the carriage return key ® to enter 
each symbol in the list. 

/LDA 

Produces executable file in LDA format 
for use with the Absolute Loader. 

/LIBRARY 

Same as /LINKLIBRARY. (Included for 

compatibility with other systems.) 


(continued on next page) 
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Table 1-7 (Cont.) 

Linker Options Available Under RT-11 


Option 

Explanation 

/LINKLIBRARY:filespec 

This option is ' ignored unless a file 
specification is typed. The file 
specification is included as an object 
module library in the linkinq operation. 

/MAP[:filespec] 

Produces a link map on the listing device 

LP: or in the file specified. 

/NOEXECUTE 

Does not create a .SAV file. 

/PROMPT 

Causes the LINKer and LIBRarian to prompt 
for CSI formatted commands. The 
LINKer/LIBRarian treat the command 
strings as continuation lines until a // 
is seen. /PROMPT is equivalent to // 
mode of continuation. Use this option to 
specify overlays, for example: 


.LINK/PROMPT ROOT 
*0VRl/0:1 
*0VR2/0:1 
*0VR3/0:2 
*0VR4/0:2// 


This creates two overlay regions with two j 
segments each. 

/ROUND:n 

Rounds up a section so that the root is a 
whole number multiple of n (a power of 

2). Prompt: 


Round section: 

/RUN 

For background jobs only, executes the 
resulting SAV file. 

/SLOWLY 

Allows largest memory area for symbol 
table. 

| 

/STACK(in] 

Modifies the stack address (default is 
loc. 42). Give an octal value (innnnnn) 
or else system prompts for a global 
symbol: 


Stack symbol? 

/SYMBOLTABLE[:filespec] 

Creates a file containing symbol 
definitions for all global symbols. 
Enter the symbol table file specification 
as the third output specification in the 
LINK command. 

/TOP:value 

Specifies the highest address to be used 
by the relocatable code. The argument 
value represents an unsigned, even octal 
number. 


(continued on next page) 
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Table 1-7 (Cont.) 

Linker Options Available Under RT-11 


Option 

Explanation 

/TRANSFER[;n] 

Prompts for a global symbol to be used as 
the starting address of the program. The 
user can specify a starting address 
(represented by n). 

/WIDE 

Sets the number of columns for the width 
of the link map to 6. The default width 
is normally 3 for an 80 column wide 
listing. 

/XM 

Enables special .SETTOP features in the 

XM monitor. This option allows a virtual 
job to map a scratch region in extended 
memory with the .SETTOP programmed 
reguest. See the RT-11 Programmer's 
Reference Manual for further information 
on these special .SETTOP features. 


Examples of linker options under RT-11 are: 


Links A.OBJ, B.OBJ, and C.OBJ on DK: and 
creates A.SAV on DK: 

Links A.OBJ and creates A.SAV on DK: and 
a map on LP: 

3) LINK/MAP:RK1:/EXE:RK0: A,B,C 

Links A.OBJ, B.OBJ, and C.OBJ. The map 
A.MAP goes to RK1: and the executable 
file A.SAV goes to RKO:. 

4) LINK/MAP/EXE:F00 B,C,D,E,LIB/LIB 

Links B.OBJ, C.OBJ, D.OBJ, E.OBJ, and the 

Library LIB.OBJ to create FOO.SAV on DK: 
and a map on LP:. 


1) LINK A,B,C 

2) LINK/MAP A 


1.3.2 Linking Under RSTS/E 

The LINK command under RSTS/E has the form: 

RUN $LINK 
* command string 

The command string has the following format: 

dev:binout,dev:mapout=dev:objl,dev:obj2,.../sl/s2/s3 

where 


dev: 


is a random access device for the save image output 
file (binout), and any appropriate device in all other 
instances. if dev: is not specified, the default 
device is assumed. if the .output is to be LDA format 

1S ' the /l L swi tch was used), the output file need 
not be on a random access device. 
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binout is the name to be assigned to the linker's save image. 

or LDA< format output file. This file is optional; if 
not specified, no binary output is produced. (Save 
image is the assumed output format unless the /L switch 
is used.) 

mapout is the optional load map file. 

objl,... are files of one or more object modules to be input to 
the linker (these may be library files). 

/sl/s2/s3 are optional switches, as explained in Table 1-8. 

An example of the LINK command format as used with FORTRAN IV follows: 

RUN $LINK 

* LOAD,MAP=MAIN,SUB 1,SUB 2/F 

This command string requests LINK to combine the object module 
MAIN.OBJ with the object modules SUBl.OBJ and SUB2.0BJ into the single 
save image file LOAD.SAV. A load map file MAP.MAP is also produced. 
All files are on the public structure. 

The switch, /F, specifies that the default FORTRAN Library in the 
system library account (1,2) on the public structure, SY:FORLIB.OBJ, 
is to be searched for any routines that are not found in the other 
object modules. These include any library functions, system 
subroutines, or object-time system routines. Note that the switch 
alone, without the explicit file specification, causes the default 
FORTRAN Library to be searched. This switch should be included if any 
of the object modules specified in the command string were created by 
the FORTRAN Compiler. This switch can be omitted, however, if the 
FORTRAN Library file specification, SY:$FORLIB, is explicitly included 
in the command string or if FORLIB has been installed under the name 
SYSLIB, as illustrated in the following example. 

RUN $LINK 

* LOAD,MAP=MAIN 

The optional load map file specification, if included, requests the 
linker to output a list of module names, common blocks, and global 
symbols, together with their absolute memory address assignments. 

See the RSTS/E FORTRAN IV Utilities Manual for a more detailed 
description of LINK. Refer to Chapter 5 of this guide for an 
alternative procedure for invoking LINK. 


Table 1-8 

Linker Options (Switches) Under RSTS/E 


Option 
(Switch) 
Name 

Command 

Line 

Meaning 

/A 

First 

Alphabetizes the entries in the load map. 

/B: n 

First 

Bottom address of program is indicated as 
n. The bottom address determines the 
amount of stack (SP) space available to the 
program being linked. The default bottom 
is 1000 (octal), which provides 
approximately 80 words of stack. This can 
be increased by specifying the /B switch 
with an argument greater than 1000 (octal). 



(continued on next page) 
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Table 1-8 (Cont.) 

Linker Options (Switches) Under RSTS/E 


Option 
(Switch) 

Command 


Name 

Line 

Meaning 

I /C 

i 

Any 

Continues input specification on another 

command line. Used also with /O. 

j /E: n 

First 

Allows a specified program section to be 



extended to the value given. When the /E 
switch is specified, the linker prints: 


i /F 


/H: n 


First 


First 


/I 


/K: n 


/L 


First 


First 


First 


EXTEND SECTION? 

Reply with the name of the program section, 
whose length then becomes greater than or 
equal to the value given. It will be 
j greater than" when the object code requires 
; a space larger than the value specified. 

I Instructs the linker to use the default 
| FORTRAN library, FORLIB.OBJ, to resolve any 
undefined global references. Note that this 
I option is not specified in the command line 
I when FORLIB has been incorporated into 
[ SYSLIB. 

| Specifies the top (highest) address to be 
used by the relocatable code in the load 
module. The high value must be specified or 
the error message /H NO VALUE will be 
returned. The high value must be an unsigned 
even octal number. If the value is odd, /H 
ODD VALUE error is returned. If the value is 
not large enough for the relocatable code, /H 
VALUE TOO LOW error message is returned. 

Use care with the /H switch because most 
^T-ll programs use the free memory above the 
relocatable code as a dynamic working area 
for I/O buffers, device handlers, symbol 
tables, etc. The size of this area varies 
with different memory configurations as 
programs linked to a high address may not run 
in a system with less physical memory. /R, 
/B, and /H are mutually exclusive and give 
the error /x-BAD SWITCH. /H is the 
counterpart to /B. 

Includes in the core image (see Section 
1.3.3) the library object modules that 
declare the specified global symbols. 

Intended for RSTS/E; not normally used for 
RT-11. Puts the specified value in word 56 
of the image file block 0. This value states 
that the program requires nK words of memory. 
Range for the required value is 1 through 28. 

Produces an output file in LDA format. 


(continued on next page) 
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Table 1-8 (Cont.) 

Linker Options (Switches) Under RSTS/E 


Option 
(Switch) 
Name 

Command 

Line 

Meaning 

/M or 
/M: n 

First 

Specifies the stack address at the terminal 
keyboard or via n. 

/O: n 

Any but 
the first 

Indicates that the program has an overlay 
structure: n specifies the overlay region 
to which the module is assigned. 

/R 

First 

(RT-11 only). Produces an output file in 
relocatable image format for execution as a 
foreground job. 

/s 

First 

Allows the maximum amount of space in 
memory to be available for the linker's 
symbol table. (This switch should only be 
used when a particular link stream causes a 
symbol table overflow.) 

/T or 
/T: n 

First 

Specifies the transfer address at terminal 
keyboard or as the octal value for the 
switch. 

/U: n 

1 

First 

i 

Prompts the user with "ROUND SECTION": The 
user replies with the name of the program 
section to be rounded up, that must be in 
the root segment. The value given must be 
a power of 2. The specified section will 
be rounded up to a size that is a whole 
number multiple of n. An example would be 
to make the first overlay start on a block 
boundary (/U:1000), so that the root 

section and the first overlay region can be 
read in with only one read. If the 
specified section is not found, the error 
message will be "ROUND SECTION NOT FOUND". 

/Wsn 

First 

Specifies the width of the map to be 
produced. The value is the number of ENTRY* 
ADDR combinations to print across the page. 

If no /W is given, the default is 3 (normal 
for 80 column paper). If only /W is given, 
n defaults to 6, which is ideal for a 132 
column page. Useful range is 1 through 7. 

/X 

First 

Intended for RSTS/E; not normally used for 
RT-11. Meaning: do not output (Xmit) the 
bitmap if code below 400. Locations 
360-377 in block 0 of the load module are 
used for the bitmap. The linker normally 
stores the program usage bits in these 
eight words. Each bit represents 256-word 
block of memory. This information is used 
by the R, RUN, and GET commands when 
loading the program. Therefore care should 
be exercised in using this switch. 


(continued on next page) 
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Table 1-8 (Cont.) 

Linker Options (Switches) Under RSTS/E 


Option 
(Switch) 
Name 

Command 

Line 

Meaning 

// 

First 

and 

last 

This method provides an alternative to the 
/C (Continue) switch, which must be given 

on every line except the last. The // 

switch allows additional lines of command 
string input. // is typed on the first 

command line and the linker will continue 
to request input until the next occurrence 
°f . * The second occurrence of // 

terminates specification of command strinq 
input. The second occurrence may be on the 
last command line with an object file name 
or on a command line by itself. 

CAUTION: The use of /C and // cannot be 

mixed in a link command string input 

sequence. 

Example: 

.R LINK 

*LINK,LP:=LINK0/B:500/W// 

♦LNKOVl/O:1 

• 

• 

♦LNKOV8/0:1// 


1.4 LIBRARY USAGE 

C 5 eat !- 3 libr ! ry ° f commonl y used assembly language and 
functions and subroutines through the system program 9 LIBR 
which provides for library creation and modification. The librarian 

° M ? RJ" 1 } System User^ Guide or the RSTS/E FORTRAN IV 

Utilities Manual describes the LIBR program in detail^ 

a file in the LINK command string simply by adding the 

H i i?£ 8cifi ^ ion to the input file list. LINK recognises the fill 

=o™.id ‘" a llnkS ° nly the reqUl " d Th. LINK 

*LOAD=MAIN,LIB1/F 

requests LINK to combine MAIN.OBJ with any required functions or 
subroutines contained in LIB1.0BJ. The default FORTRAN svst-om 
library, FORLIB.OBJ ($FORLIB.OBJ on RSTS/E), is then searched fo/ 

!i5“po»?ea r t a to c i;if?r- ,/r ** not S Ss 

f!K 1 L&,.iS{! tt,h . s ’ ,slib - The entite —«y 1-9. i. output to 

If the /F option or switch is used, all user-created libraries are 
F e iolutio^?^ 5 GUXde f ° r 3 detailed description of multilibrary gl^Eil 
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If the linker fails for lack of symbol table space, use the /S linker 
option in your next attempt. This could slow the linking process, but 
it allows the maximum possible symbol table space. 

To maintain the integrity of the DEC-distributed FORTRAN Library, 
create a user library rather than modifying or adding to the FORTRAN 
Library (FORLIB) or to the System Library (SYSLIB). 


1.4.1 Overlay Usage 

Use the overlay feature of the linker to segment the memory image so 
that the entire program is not memory-resident at one time. This 

allows the execution of a program too large for the available memory. 

An overlay structure consists of a root segment and one or more 

overlay regions. The root segment contains the FORTRAN IV main 
program, COMMON, subroutines, function subprograms, and any .PSECT 
that has the GBL attribute and is referenced from more than one 

segment. An overlay region is an area of memory allocated for two or 
more overlay segments, only one of which can be resident at one time. 
An overlay segment consists of one or more subroutines or function 
subprograms. 

When a call is made at run time to a routine in an overlay segment, 

the overlay handler verifies that the segment is resident in its 

overlay region. If the segment is in memory, control passes to the 
routine. If the segment is not resident, the overlay handler reads 
the overlay segment from the memory image file into the specified 
overlay region. This destroys the previous overlay segment in that 
overlay region. Control then passes to the routine. 

Give careful consideration to placing routines when you divide a 
FORTRAN IV program into a root segment and overlay regions, and 

subsequently divide each overlay region into overlay segments. 

Remember that it is illegal to call a routine located in a different 
overlay segment in the same overlay region, or an overlay region with 
a lower numeric value (as specified by the linker overlay /0:n) than 
the calling routine. Divide each overlay region into overlay segments 
that never need to be resident simultaneously. 

The FORTRAN IV main program unit must be placed in the root segment. 

In an overlay environment, subroutine calls and function subprogram 
references must refer only to one of the following: 

• A FORTRAN library routine (for example, ASSIGN or DCOS). 

• A FORTRAN or assembly language routine contained in the root 
segment. 

• A FORTRAN or assembly language routine contained in the same 
overlay segment as the calling routine. 

• A FORTRAN or assembly language routine contained in a segment 
whose region number is greater than that of the calling 
routine. 

In an overlay environment, you must place the COMMON blocks so that 
they are resident when you reference them. Blank COMMON is always 
resident because it is always placed in the root segment. You must 
place all named COMMON either in the root segment or in the segment 
whose region number is lowest of all the segments that reference the 
COMMON block. A named COMMON block cannot be referenced by two 
different segments in the same region unless the COMMON block appears 
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in a segment of a lower region number. The linker automatically 

FV>RTnfw a C0 ? M0N block xnto * he root segment if it is referenced by the 
FORTRAN main program or by a subprogram that is located in the root 

segment. Otherwise, the linker places a COMMON block in the first 

rnMMoU t K 1 en ^° Untered in the linker command string that references that 
common block. 


All COMMON 
statements) 
placed. 


blocks that are data-initialized (by use of DATA 
must be so initialized in the segment in which they are 


The entire overlay initialization process is handled by LINK. The 

command format outlined below (and further explained in the linker 
f _ a P^ e f of the RT : 11 System User's Guide or the RSTS/E FORTRAN IV 

Utilities Manual ) isused to describe the overlay structure to the 

linker. LINK combines the run-time overlay handler with the user 

program, making the overlay process completely transparent to the 
user's program. 

The size of the overlay region is automatically computed to be large 
enough to contain the largest overlay segment in that overlay region. 

The root segment and all overlay segments are contained in the memory 
image file generated by LINK. 


Two options are used to specify the overlay structure to LINK 
overlay option is of the form: 

/0: n 

where n is an octal number specifying the overlay region number, 
command continuation option has two forms: 


The 


The 


/C 


and // 


/C at the end of each continuation line allows the user to continue 
long command strings on the next line of input. // is used at the end 
S f K^ he , f of St llne and again at the end of the last line of input (see 

The first line of the LINK overlay structure command string should 
contain, as the input list, all object modules that are to be included 
in the root segment. This line should be terminated with the /C 
option. The /0:n option cannot appear in the first line of the 
command string, if all modules that are to be placed in the root 
segment cannot be specified on the first command line, additional 
moduies can be specified on subsequent command lines, each ending with 
a /C. The entire root segment must be specified before any overlays. 

All subsequent lines of the command string should be terminated with 
the /0:n option (switch) specifying an overlay region and/or the /C 
option (switch). The presence of only the /C option (switch) 
specifies that this is a continuation of the previous line and 
therefore a continuation of the specification of that overlay segment 

T b ® ° b:) * ct ^ules on each line, or set of continuation lines, 
constitute an overlay segment and share the specified overlay region 
with all other segments in the same numeric value overlay region. All 
(switch) laSt linC ° f the command string should contain the /C option 
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For example, assume that FORLIB has been built into SYSLIB and given 
the following overlay structure descriptions 

1. A main program and the object module SUB1 are to occupy the 
root segment. 

2. The object module SUB2 is to share an overlay region with the 
object module SUB3 (never coresident) . 

3. The object modules SUB4 and SUB5 are to share a second 
overlay region with the object modules SUB6 and SUB7. 


The following command string could be used: 


RT-11 


RSTS/E 


.LINK/PROMPT/EXE:LOAD MAIN+SUB1 

*SUB2/0:1/C 

*SUB3/0:1/C 

*SUB4/0:2/C 

‘SUB5/C 

♦SUB6/0:2/C 

*SUB7// 


RUN $LINK 
*LOAD=MAIN,SUBl/C 
*SUB2/0:1/C 
*SUB3/0:1/C 
*SUB4/0:2/C 
*SUB5/C 
*SUB6/0:2/C 
*SUB7 





1.4.2 Extended Memory Overlays (RT-11 Only) 

You can use LINK to create an overlay structure that uses extended 
memory for privileged or virtual FORTRAN jobs. You will need an XM 
monitor and a hardware configuration that includes a Memory Management 
Unit to run a program having overlays in extended memory, but you can 
link such a program on any RT-11 system. 

The extended-memory overlay structure is different from the low-memory 
overlay structure in that extended-memory overlays can reside 
concurrently in extended memory. This difference allows for speedier 
execution because, once a program is read in, it requires fewer I/O 
transfers with the auxiliary mass-storage volume. In fact, if all 
program data is resident, and the program is loaded, the program may 
be able to run without an auxiliary mass-storage volume. 

Note that you must observe with extended-memory overlays the same 
restrictions that apply to low-memory overlays, especially those 
pertaining to return paths. 

The following command string illustrates the use of extended-memory 
overlays to create a privileged FORTRAN job instead of the low-memory 
overlays used in the Section 1.4.1 example: 

.LINK/PROMPT/EXE:LOAD MAIN+SUBl 

*SUB2/V:1/C 

♦SUB3/V:1/C 

*SUB4/V:2/C 

*SUB5/C 

*SUB6/V:2/C 

*SUB7// 

Refer to the RT-11 System User's Guide for more information on 
Extended Memory Overlays. 
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1.4.3 Stand-Alone PORTRAN 

You can develop FORTRAN programs under the RT-11 or RSTS/E FORTRAN IV 
systems and receive output in an absolute binary format for execution 
on a satellite machine with minimum peripherals. The satellite 
machine needs only a minimum of 4K words of memory and only a 
paper-tape reader or a serial line unit for program loading. 

You can also use the stand-alone FORTRAN capability to construct 
Read-Only Memory (ROM) applications programs. See Section 2.5.4 for 
more details on ROM environments. 

When operating in the stand-alone environment, the terminal is the 
only input/output device supported by 'FORTRAN-level input/output. 
Other devices or equipment interfaces can be supported by appropriate 
user-written assembly language subroutines. 

To generate a stand-alone program, the source program units should be 
compiled as usual. At link time, special options are specified to 

?f^ rate a stand-alone program. The /L option must be included in the 
link command string to cause an absolute binary format (LDA) output 

file to be generated. The /I option must also be given to allow a 
special module to be requested from the FORTRAN IV Library. This 
module is: 

$SIMRT FORTRAN IV system simulator 

s ince the library used must reflect the hardware arithmetic options 
available on the satellite machine, you must be careful to use the 
proper FORTRAN IV Library. Hence, the system default library 
(SY:FORLIB.OBJ), which is used when the /F option (switch) is 
specified to LINK', may not be appropriate. Consult with the system 
manager (RSTS/E users) or the FORTRAN I V Installation Guide (RT-11 
users) for information on the various libraries. " 

The following command sequence generates a file, LOAD.LDA, which can 

be punched on paper tape and loaded, using the Absolute Loader, on anv 
PDP-11. 1 


RT-11 


RSTS/E 


.LINK/LDA/INCLUDE/EXE:LOAD MAIN,SUBS 
Library search? $SIMRT 
Library search? ® 


RUN $LINK 

♦LOAD,LP:=MAIN,SUBS/F/L/I 
Library search? $SIMRT 
*“C 
READY 


See Appendix E for further information on stand-alone FORTRAN 
capabi1 i ties. 


1.4.4 FORTRAN Programs Run as Virtual Jobs (RT-11 Only) 

You can develop FORTRAN programs which can access a full 32K words of 
address space, and which you can run as virtual jobs. (Virtual jobs 
cannot access the I/O page.) When a FORTRAN job becomes a virtual 
job, the FORTRAN OTS initialization code uses the special features of 
the .SETTOP programmed request to allocate a full 32K words of address 
space. The initialization code then places the OTS work area in 
extended memory at the high limit returned by the .SETTOP request. 
This allocation method differs from that of privileged FORTRAN jobs. 
Even if they use extended memory overlays, privileged jobs allocate 
all the free space in low memory for the OTS work area. 
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To make a FORTRAN' program a virtual job, you compile the source- 
program units as usual, but then at link time, you specify special 
options. 

You specify the /INCLUDE (/I) option to allow a special module to be 
requested from the FORTRAN IV Library. This module is: $QBLK, which 
is the FORTRAN IV Data Area definition for Queue Elements. Next you 
specify the /XM option or the /V option (specified on the first line 
of input to link) to allow the special .SETTOP features of the XM 
monitor to be enabled. 

The following command sequence generates a file, VIRFOR.SAV, which can 
be run as a virtual job. 

.LINK/EXE:VIRFOR/INCLUDE/XM MAIN+SUBS 
Library search? $QBLK 
Library search? ® 


For more information on virtual and privileged jobs, see the RT-11 
System User's Guide , the RT-11 Software Support Manual , and the RT-11 
Programmers Reference Manual . 


NOTE 


The module $QBLK sets the virtual bit in 
the Job Status Word through an Asect; 
therefore, effect all other changes to 
the Job Status Word at runtime with 
IPEEK and IPOKE System Functions. 


1.4.5 Unformatted Byte I/O 

An optional module, named UIOBYT.OBJ, is included in the distribution 
kit. If this module is placed in the FORTRAN IV OTS Library, each 
byte element in an unformatted I/O statement is transferred as a byte 
rather than as a word. UIOBYT.OBJ can be used to save disk space when 
you do unformatted byte I/O. Select one of the following procedures, 
as appropriate for your system. 

To add this module to the FORTRAN IV OTS Library (FORLIB), type: 

.R LIBR 

*FORLIB(-1]=FORLIB,UIOBYT/U/G 
Global? $ERRS 
Global? $ERRTB 
Global? ® 

* “C 


If FORLIB is incorporated in SY6LIB, type: 
.R LIBR 

*SYSLIB[-1]“SYSLIB,UIOBYT/U/G 
Global? $ERRS 
Global?' $ERRTB 
Global? $OVRH 
Global? ® 

* “C 
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1.4.6 Smaller Execution-Time Programs 


The default e 
when linking 
each possible 
incorporates 
when using th 
error number 
shorter form 
savings in 
core savings 
to be run in 
included when 


fortrim n 9 module included from the FORTRAN library 
FORTRAN programs contains the ASCII text corresponding to 
object time error. However, the FORTRAN library also 
an alternate error message module which contains no text- 
is module, when a object time error occurs, only the 
is printed. The resulting core savings in using the 
is approximately 850 words; the corresponding on-disk 
the size of each .SAV or .REL file is 3-4 blocks? (The 

C hh 0 b f partlcu l a f 1 y significant when generating programs 
the foreground.) The shorter error message module can be 
linking a FORTRAN program as follows: 


RT-11 


Filespecs 


RSTS/E 


.LINK/INCLUDE MAIN 

Library search? $SHORT 

Library search? © 


Short error message checking is 
an OTS generation option. 

Refer to the RSTS/E Installation 
Guide/Release Notes for information. 


1.5 EXECUTION PROCEDURES 


Section 
system. 
system. 


1.5.1 describes 
Section 1.5.2 


program execution under the RT-11 
describes execution under the RSTS/E 


operating 

operating 


1.5.1 Execution Under RT-11 


Use the monitor RUN command to start execution of 
file generated by LINK. The command: 


the memory 


image 


.RUN devrfilespec 


causes the file on the device (DEV:) to 
executed. Filespec.sav is the file name 
Section 1.1.1. 


be loaded into memory and 
specification as described in 


The following example takes three FORTRAN source 
main program and several subroutines through the 
to compile, link, and execute that program: 


files containing a 
procedures necessary 


.FORTRAN/LIST MAIN+SUB,SUBT 
.LINK/MAP MAIN,SUBT 
.RUN MAIN 


This searches SYSLIB when any 
FORTRAN OTS is assumed to 
system installation.) 


undefined references are present, 
have been incorporated into SYSLIB 


(The 

upon 


1.5.2 Execution Under RSTS/E 


The following command 
generated by link: 


starts 


execution 


of the memory image 


file 


RUN filespec 
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Where no extension is specified in filespec, the following search 
occurs: 

Beginning with the first Run-Time System (RTS) in the monitor's 
RTS list! and progressing sequentially through the list, the 
monitor will append each RTS's default "executable file'* 
extension to the file-name given in filespec and search for the 
file in the appropriate directory. When a satisfactory extension 
is found, the associated RTS is used to execute the file. 

For example, a user has two files on his account, 

SAMPLE.BAC and 
SAMPLE.SAV 

and the default RTS is BASIC-PLUS. 

Typing 

RUN SAMPLE 

will cause SAMPLE.BAC to begin execution. 


To execute SAMPLE.SAV, the extension must be given explicitly: 
RUN SAMPLE. BAV. 


At the start of execution of a FORTRAN program, 
initialization routine will determine exactly how 
required by the program from two parameters: 


an internal 
much memory is 


1. /N:xxx switch (number of logical units) 


2. /R:xxx switch (maximum record length) 

If necessary, additional memory is acquired to meet other 
requirements. 


1.6 DEBUGGING A FORTRAN IV PROGRAM 

The "debug line" capability of FORTRAN IV is effective in debugging 
because it allows a FORTRAN statement to be conditionally compiled. 
Here are some suggestions for using that capability. 

Try to locate the statement in error by typing out intermediate values 
and results. Place a "D" in column one of each source line you have 
added for debugging purposes. These lines will not be compiled unless 
you specify the debug option (/D for RSTS/E, and the keyboard monitor 
command option /ONDEBUG for RT-11) in the compiler command string. 
The program can be recompiled without the /D option after the problem 
has been corrected. All the debugging statements will be treated as 
comments. 

Use the operating system's ODT debugging aid for in-line code. 


1. The ordering of RTS in the list will be displayed by typing the 
SYSTAT/R command to RSTS/E. The resulting display is the entire 
contents, in order, of the monitor's RTS list with associated 
executable file extensions. 
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ODT debugging requires the generated code listinq for 
ection 1.2.2, /L or /SHOW listing control option) 
numbers printed in the left margin of the listinq 

$CODE tS ° f thS llsted mac hine instructions within 


the program (see 
. The resulting 
are the octal 
the local PSECT 


Note that only one base address 
when multiple program units 
for a specific subprogram unit, 
to the unit. 


is listed for $CODE in the LINK map 

are present. To find the base of $CODE 
locate the address of the entry point 


The variables and data items r 
code listing are located in 
by the storage map section of 
are formed into a single 
programs units are linked to f 
find the base address sectio 
the word at offset 4 in the un 
the address of the base o 
Examining the word at offset 6 
base address of the associated 


eferenced symbolically in the 
the PSECT $DATA« at the offsets 
the compiler. All local $DATA 
allocation on the link map when 
orm a single executable prog 
n for a particular program unit 
it's $CODE section. This value 
f the unit's pure data section 
from the $DATAP section will 
$DATA impure section. See Fig 


generated 
indicated 
sections 
multiple 
ram. To 
, examine 
will be 
($DATAP) . 
give the 
ure 1-3. 



Note: 
MAIN:: 
SUBR:: 
MAIN:: 
SUBR:: 


Only one of the following will be found in any program or 
JSR R4, $OTI - threaded main program 
JSR R4, $OTIS - threaded SUBR or FUNCT 
JSR R4, $$OTI - inline main program 
JSR R4, $$OTIS - inline SUBR or FUNCT 


subprogram unit. 


Figure 1-3 


Finding the Base Address Section 
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CHAPTER 2 


PORTRAN IV OPERATING ENVIRONMENT 


2.1 FORTRAN IV OBJECT-TIME SYSTEM 

The PDP-11 FORTRAN IV Object-Time System (OTS) provides the user with 
a library of common sequences of PDP-11 machine instructions invoked 
by compiled FORTRAN programs. OTS consists of many small functional 
modules from which the compiler selects only those required to 
implement the FORTRAN program. The required sequences are integrated 
with the compiler-generated code during linkage to form the executable 
program. For example, if the user program performs only sequential 
access, formatted I/O, none of the direct access I/O routines is 
included. 

The FORTRAN IV OTS comprises the following: 

• Mathematics routines, including the FORTRAN IV Library 
functions and other arithmetic routines (for example, 
floating-point routines) 

• Miscellaneous utility routines (RANDU, DATE, SETERR, etc.) 

• Routines that handle various types of FORTRAN I/O 

• Error-handling routines that process arithmetic errors, I/O 
errors, and system errors 

• Miscellaneous routines required by the compiled code 


2.2 OBJECT CODE 

The FORTRAN IV compiler translates programs written in the symbolic 
PDP-11 FORTRAN language into "object code" (machine language). The 
resulting object modules, combined with required modules from the 
FORTRAN IV OTS, form executable programs of PDP-11 machine 
instructions. 

The compiler produces two distinctly different types of object 
programs by generating either threaded code or in-line code. 
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When you select in-line code (through the options 
/CODE: [/I:] EAE, EIS, or FIS), the compiler produces the one-to-one 
PDP-11 machine instructions required for the specific arithmetic 
hardware in the system configuration. Symbolic FORTRAN library 
routines are referenced to perform only those functions that cannot be 


achieved in short sequences of machine instructions. A program 
compiled through an in-line code option produces an object program 
that conforms specifically to the type of hardware selected at 
compilation time. 


When threaded code is generated (through the /CODE:THR [/I:THR] 
option), the object program produced uses a symbolic library routine 
to perform each operation required for program execution; the 
executable program consists of a "threaded" list of the addresses of 
library routines and appropriate operand addresses. This type of code 
generation produces an object module that operates independently of 
hardware arithmetic configuration. It may be combined with any of the 
FORTRAN IV OTS libraries to produce a valid executable program for 
each type of arithmetic hardware without any need for recompilation. 


Consider the following when you decide whether to use in-line or 
threaded code. 

When the program does not contain REALM, REALM, or COMPLEXM 
arithmetic operations, 

• In-line code always executes faster than threaded. 

• The differences in size between in-line and threaded programs 
are slight. 

When the program contains large amounts of REALM, REALM, and 
COMPLEXM arithmetic (scientific computation), 

• Threaded code is much smaller than in-line code. 

• Execution speed is nearly the same for both. 

See Table 2-1. 


NOTE 


Although the above relationships are 
generally true, they do vary from 
program to program. Therefore, DIGITAL 
recommends that production programs be 
compiled and tested with both in-line 
and threaded code. This procedure will 
allow you to determine the best type of 
code in terms of size and speed, for 
your application. 
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Table 2-1 

Comparison of Threaded and In-line Code 
for the Statement: I=J*K+REAL 


Threaded 

Code 



In 

i-line Code 





For FIS 

For EIS 

For EAE 

MOI$MS 

J 

MOV, 

H 

oc 

% 

MOV 

J ,R1 

MOV 

#$EAE,R5^ 

MUI$MS 

K 

MUL 

Ki,Rl 

MUL 

K ,R1 

MOV 

J, (R5) + 







MOV 

K, @R5 



MOV 

R1,-(SP) 

MOV 

Rl,-(SP) 

MOV 

-(R5),-(SP) 

CFI $ 


JSR 

PC , $CVTIF 

JSR 

PC,$CVTIF 

JSR 

PC,$CVTIF 

ADF$MS 

REAL 2 

MOV 

REAL+2,-(SP) 

MOV 

REAL+2,-(SP) 

MOV 

REAL+2,-(SP) 



MOV 

REAL,-(SP) 

MOV 

REAL,-(SP) 

MOV 

REAL,-(SP) 



FADD 

SP 

JSR 

PC,$ADDF 

JSR 

PC,$ADDF 

CIF$ 


JSR 

PC,$CVTFI 

JSR 

PC,$CVTFI 

JSR 

PC,$CVTFI 

MOI$SM 

I 

MOV 

(SP)+,I 

MOV 

(SP)+,I 

MOV 

(SP)+,I 

1. $EAE 

represents the address of 

the 

KE11-A (or 

-B) 

accumulator 


register (AC). 

2. Note that the threaded code sequence for this floating-point 
addition requires only two words of memory plus the size of the ADF$MS 
routine, whereas the in-line code uses five words (FIS), four words 
(EIS), or six word (EAE). This demonstrates the savings in storage in 
using threaded code for floating-point operations. 


2.2.1 Processor-Defined Functions 


The compiler 

generates 

code in line for the following 

processor-defined functions 

(PDFs): 

Function 


Definition 

IABS(I) 

Integer 

absolute value 

IDIM(I,J) 

Integer 

positive difference 

ISIGN(I,J) 

Integer 

transfer of sign 

MOD(I,J) 

Integer 

remainder 

MINO (I,J) 

Integer 

minimum of integer list 

MAXO(I,J) 

Integer 

maximum from integer list 

IFIX(A) 

Real to 

integer conversion 

FLOAT(I) 

Integer 

to real conversion 

REAL(C) 

Complex 

to real conversion, obtain real part 

DBLE(A) 

Real to 

double conversion 

SNGL(A) 

Double 

to real conversion 

Since the code 

for a PDF is 

generated by the compiler, no global 


reference to the function name is produced. A problem could arise 
when the function call is to be interpreted as a call to a 
user-written routine. To force the compiler to treat the apparent PDF 
call as a reference to a user routine, specify the routine as external 
to the program with an EXTERNAL statement. 
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For example, when compiling the statement: 

I = IABS(J) 

code equivalent to the following is produced: 

MOV J, I 
BPL 1$ 

NEG I 

1 $: ... 

By including the statement: 

EXTERNAL IABS 

code equivalent to the following will be produced: 


• GLOBL 

IABS 

MOV 

#J,-(SP) 

MOV 

#1 ,-(SP) 

MOV 

SP,R5 

JSR 

PC,IABS 

CMP 

(SP)+,(SP)+ 

MOV 

RO, I 


2.2.2 VIRTUAL Array Options (RT-11 Only) 

The VIRTUAL statement declares arrays that are assigned space outside 
the program's directly addressable memory and are manipulated through 
the virtual array facility of FORTRAN IV. The VIRTUAL statement 
allows arrays to be stored in large data areas that are accessed at 
high speed. The VIRTUAL array statement is supported for RT-11, but 
is not currently available under RSTS/E. See the PDP-11 FORTRAN 
Language Reference Manual for detailed VIRTUAL array information. 

VIRTUAL arrays are limited only by the number of elements, not by the 
total storage available. Under RT—11, all memory above the initial 
28K words is available for VIRTUAL array storage. Except for the size 
of physical memory, there is no limit to the number or to the total 
size of all VIRTUAL arrays a program can access. The maximum number 
of elements in a VIRTUAL array is 32767. Thus the largest L0GICAL*1 
VIRTUAL array is 16 k words, or 32767 bytes. The largest REAL*8 
VIRTUAL array is 128K words or 262136 bytes. This is a total of 32767 
elements, each of which occupies 8 bytes. The limit is 32767 elements 
because FORTRAN IV requires array subscripts to be positive integers. 

VIRTUAL support for RT-11 uses the Program Logical Address Space 
(PLAS) extensions when it operates under the XM monitor. The FORTRAN 
OTS directly manipulates the KT-11 mapping registers to provide 
VIRTUAL support when operating under RT-11 single job and FB monitors. 

All VIRTUAL arrays declared in a program unit are allocated in a 
.VSECT, a type of program section. The compiler concurrently 
generates a .VSECT additive type of relocation as it references the 
VIRTUAL array in the object program. 

The .VSECT program section is unnamed and has the "concatenate" 
attribute. This allows the accumulating of all VIRTUAL storage 
requirements for a linked job or task as the concatenation of the 
.VSECTS. 
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The syntax of the VIRTUAL statement is identical to that of the 
DIMENSION statement and involves only substituting the keyword VIRTUAL 
for the keyword DIMENSION. However, there is a significant semantic 
difference between the two because of the limitations imposed on the 
DIMENSION statement. Local arrays declared by the DIMENSION statement 
are limited by the maximum memory available to the program. Section 
2.2.6 demonstrates how to convert an existing program to use the 
VIRTUAL feature. The three VIRTUAL array options available in 
building the RT-11 OTS ares 

NOVIR.OBJ 
VIRP.OBJ 
VIRNP.OBJ 


2.2.3 NOVIR•OBJ 

This module specifies no VIRTUAL array support and is intended for the 
user who prefers to optimize the size of FORLIB rather than use 
VIRTUAL array support. When NOVIR.OBJ is included in the library, all 
references to the VIRTUAL array routines (made by the compiler when 
VIRTUAL arrays are available), produce ERROR 64, Virtual Array 
Initialization Failure. 


2.2.4 VIRP.OBJ 


This module is for PLA6 support and requires both the XM Monitor and 
EIS (or FIS or FPU) hardware for program execution. Failure to adhere 
to these requirements will result in run-time error #64 — VIRTUAL 
array initialization failure. VIRP uses the 4K words of VIRTUAL 
memory addresses starting at 160000 octal -- normally the PDP-11 I/O 
page -- for a window. For this reason, programs using VIRP support 
may not reference the I/O page. 


The program 
allocate a 
This region 
include all 


initialization code uses the PLAS .ALLOC directive to 
region of the required size from the extended memory pool, 
is a contiguous section of physical memory large enough to 
VIRTUAL arrays declared in the executable program. 


NOTE 

If FORTRAN is unable to allocate a 
region of the proper size, a FATAL 
FORTRAN error message results. 


A window of 4K words initially maps the first 4K words of the VIRTUAL 
array region. When a VIRTUAL array element lies outside the window, 
the PLAS .REMAP directive causes a window-turn operation to allow 
access. 


2.2.5 VIRNP.OBJ 

This module provides VIRTUAL array support for the single job (SJ) and 
the foreground/background (FB) monitors. VIRNP supports full 11/70 
22-bit addressing capability. The largest amount of VIRTUAL memory 
available is 4068K words (4096K minus 28K). VIRNP supports the KT11 
Memory Management Unit directly, mapping the job and RT-11 to kernel 
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space and the VIRTUAL array to user space. The module turns 
KT11 immediately before a VIRTUAL array fetch/store. 


on 

and 


the 

off 


immediately after, thus keeping KT11 mapping overhead to a minimum. 

When VIRNP support is used under the FB monitor, the foreground and 
the background jobs cannot use VIRTUAL arrays concurrently, because 
both will reference the same region of extended memory for array 
storage. The XM monitor and PLAS VIRTUAL support must be used when 
two concurrent jobs require access to VIRTUAL arrays. 


2.2.6 Converting a Program to Use VIRTUAL Arrays 

First, be sure to observe the usage restrictions for VIRTUAL arrays 
covered in the PDP-11 FORTRAN Language Reference Manual . To convert 
the existing program, declare the arrays by using the VIRTUAL instead 
of the DIMENSION statement, 
access coding. 


The program does not require additional 


The following example illustrates a general, 
conversion. 


minimum-effort program 


1 . 


2 . 


Identify the non-VIRTUAL arrays that are to be converted 
VIRTUAL arrays. 


to 


3. 


Locate the DIMENSION and the type declaration statements in 
which these arrays are declared. Replace DIMENSION 
statements with equivalent VIRTUAL statements. Replace 
array-declarative type declaration statements with VIRTUAL 
statements to define the array dimensions, and remove the 
dimensioning information from the type declaration 
statements. 

Compile the program. Observe all compilation errors; these 
will occur where the syntax restrictions outlined in the 
PDP-11 FORTRAN Language Reference Manual have been violated. 
In some cases, you may need to reformulate the data 
structures to use VIRTUAL arrays effectively. 


4. 


Check the code to ensure that VIRTUAL 
passed correctly to subprograms. 


array parameters are 


a. If the argument list of a subprogram call includes an 
unsubscripted VIRTUAL array name, the argument list of 
the SUBROUTINE or FUNCTION statement must have an 
unsubscripted VIRTUAL array name in its corresponding 
dummy argument. This establishes access to the VIRTUAL 
array for the subprogram. The declaration of the VIRTUAL 
array in the subprogram must be dimensionally compatible 
with the VIRTUAL declaration in the calling program. All 
changes to the VIRTUAL array that occurred during 
subprogram execution are retained when control returns to 
the calling program. 
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When you pass entire arrays as subprogram parameters, be 
certain that the matching arguments are defined as both 
VIRTUAL or both non-VIRTUAL. Mismatches of array types 
are not detectable at either compilation or execution 
time, and the results are undefined. 

b. If the argument list of a subprogram reference includes a 
reference to a VIRTUAL array element, the matching formal 
parameter in the SUBROUTINE or FUNCTION statement must be 
a non-VIRTUAL variable. Value assignments to the formal 
parameter occurring within the subprogram do not alter 
the stored value of the VIRTUAL array element in the 
calling program. To alter the value of that element, the 
calling program must include a separate assignment 
statement that references the VIRTUAL array element 
directly. 

The following example demonstrates the process of changing non-VIRTUAL 
arrays to VIRTUAL arrays. 

DIMENSION A(1000,20) 

INTEGERS B(1000) 

DATA B/l000*0/ 

CALL ABC(A,B,1000,20) 

WRITE(2,*) (A (I,1) .1 = 1,1000) 

END 

SUBROUTINE ABC(X,Y,N,M) 

DIMENSION X (N,M) 

INTEGERS Y (N) 

DO 10, 1=1,N 
10 X (I,1)=Y(I) 

RETURN 

END 

This program contains two arrays, named A and B. 

Array A is declared in a DIMENSION statement and is of the default 
data type. Thus, substituting the keyword VIRTUAL for the keyword 
DIMENSION is sufficient for its conversion. 

Note, however, that array B and its dimensions are declared in a type 
declaration statement (in the second line of the program). 

To convert B into a VIRTUAL array, its declarator must be moved to a 
VIRTUAL statement; also, the variable B must remain in the type 
declaration statement, but without a dimension specification. 

A and B are both passed to subroutine ABC as arrays, rather than array 
elements. Thus the associated subroutine parameters must also be 
converted to VIRTUAL arrays. 

The following compiled listing illustrates the program after the first 
phase of the conversion. 
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FORTRAN IV V02.5 Thu 01-Ma«-80 00*41:38 


0001 

0002 

0003 

0004 

0005 

0006 


VIRTUAL A(1000>20)* 6(1000) 
INTEGER*2 B 
DATA 6/1000*0/ 

CALL ABC(A*B*1000*20) 

WRITE<2**)<A<1,1>,1=1*1000) 
END 


FORTRAN IV 
In line 0003* 


Diagnostics for Program Unit .MAIN* 
Error.* Usage of variable invalid 


FORTRAN IV 


Storage hap for Program Unit .MAIN. 


Local Variables* .PSECT $UATA* Size = 000006 ( 3. words) 

Name Type Offset Name Type Offset Name Type 

I 1*2 000000 

VIRTUAL Arrays * Total Size = 00240200 ( 41024. words) 


Name 

Type 

Offset 

- Sl 

ze 

- Dimensions 

A 

R*4 Vec 

00000000 

00234200 

( 

40000.) <1000*20) 

B 

1*2 

00234200 

00003720 

( 

1000.) (1000) 

Subroutines* Functions* Statement and 

F'rocessor-Defined Func 

Name 

Type 

Name Type 

Name 

Type Name Type Name 

ABC 

R*4 






Offset 


tions: 
Type 


FORTRAN IV 

0001 

0002 

0003 

0004 

0005 10 

0006 

0007 


FORTRAN IV 

Local Variables* .PSECT tDATA* Size = 000012 ( 5. words) 

Name Type Offset Name Type Offset Name Type Offset 

I 1*2 000010 M 1*2 0 000004 N 1*2 0 000006 

VIRTUAL Arrays* Total Size = 00000000 < 0. words) 

Name Type Offset -Size-Dimensions 

X R*4 0 000000 **** ( **** ) (n*M) 

Y 1*2 0 000002 **** ( **** ) <N) 


Note that the main program compilation causes an error message. DATA 
statements must not refer to VIRTUAL arrays. The user substitutes a 
DO loop to achieve the same result. 

The following listing shows the program after the conversion is 
completed. 


V02.5 Thu 01-May-80 00*41540 PAGE 001 

SUBROUTINE ABC(X*Y*M*N) 

VIRTUAL Y<N)* X(N*h) 

INTEGER*2 Y 
DO 10* 1*1 * N 
X(I*1)=Y(I) 

RETURN 

END 


Storage Map for Program Unit ABC 
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FORTRAN IV 


V02♦ 5 Thu Ol-hay-80 00*41125 


PAGE 001 


0001 


VIRTUAL A(1000?20 )t B(1000) 


0002 
0003 
0004 5 


INTEGER*2 B 
DO 5f I=1f1000 
B(I)=0 


0005 

0006 

0007 


CALL ABC(AfBf1000f20) 

WRITE <2f*> <A<If1)f1=1f1000) 
END 


FORTRAN IV 


Storage hap for Program Unit .MAIN. 


Local Variables* .PSECT $DATAf Size = 000006 ( 3* words) 

Name Type Offset Name Type Offset Name Type Offset 

I 1*2 000000 

VIRTUAL Arrays f Total Size = 00240200 < 41024. words) 


Name 

Type 

Offset 

-Size- 

Dimensions 

A 

R*4 Vec 

00000000 

00234200 ( 40000.) 

<1000 f 20) 

B 

1*2 

00234200 

00003720 ( 1000.) 

(1000) 


Subroutines f FunctionsF Statement and Processor-Defined Functions: 

Name Type Name Type Name Type Name Type Name Type 
ABC R*4 


FORTRAN IV V02.5 Thu 01-May-80 00J41J27 


PAGE 001 


0001 

0002 

0003 


SUBROUTINE ABC(XfYfHfN) 
VIRTUAL Y(N)f X(NfM) 
INTEGER*2 Y 


0004 

0005 10 

0006 
0007 


DO 10f I = 1fN 
X(If1)=Y(I) 
RETURN 
END 


FORTRAN IV Storage hap for Prodram Unit ABC 


Local Variables^ .PSECT 

$DATA f 

Size = 

000012 < 

5. 

words) 


Name Type 

I 1*2 

Offset 

000010 

Name 

h 

Type 
1*2 0 

Offset 

000004 

Name 

N 

Type 
1*2 0 

Offset 

000006 


VIRTUAL Arrays f Total Size = 00000000 ( 0. words) 


Name 

X 

Y 


Type Offset -Size-Dimensions 

R*4 0 000000 **** ( **** ) (NfM) 

1*2 0 000002 **** ( **** > <N) 


PDS> COPY DKO:BADVRT.LST/RT III 


2.3 SUBPROGRAM LINKAGE 


Subprogram linkage operates identically for all subprograms, including 
those written by the user in FORTRAN IV and in assembly language. 

The following instruction is used to pass control to the subprogram: 

JSR PC, routine name 
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Register 5 (R5), prior to calling the subprogram, is set to the 
address <Jf an argument list having the following format: 



R5 


The value -1 is stored in the argument list as the address of any null 
arguments. Null arguments in CALL statements appear as successive 
commas, for example, CALL SUB (A,,B) 

NOTE 

Be certain that the called subprogram 
does not modify the argument list passed 
to it by the calling program. 


The instruction 
RTS PC 


causes control to return to the calling program. 


rhe following is an example of argument transmission: An assembly 
language subroutine is written to sum all integer arguments it finds 
in each parameter list, and to return the result to the FORTRAN 

£!i?? ram as t * 1e va * ue °f a final, additional argument. The 
CALL statements that invoke this routine take the form: 


IV 
FORTRAN 


CALL IADD(numl,num2,...,numn,isum) 


where numl through numn represent a variable number of 
quantities to be summed, and isum represents the variable 
element in which the sum is to be placed. 


integer 
or array 


Given the following MACRO-11 subprogram: 



.TITLE 

ADDER 


•GLOBL 

IADD 

IADD: 

MOV 

(R5) + ,R0 


CLR 

R1 


DECB 

R0 

1$: 

ADD 

@ (R5) + ,R1 


DECB 

R0 


BNE 

1$ 


MOV 

Rl,@ (R5) + 


RTS 

PC 


;GET # OF ARGUMENTS 
;PREPARE WORKING REG. 

;FIND # OF TERMS TO ADD 
;ADD NEXT TERM 
;DECREMENT COUNTER 
;LOOP IF NOT DONE 
.•RETURN RESULT 
.•RETURN CONTROL 
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the sequence of FORTRAN IV calls: 

CALL IADD(1,5,7,I) 

CALL IADD(15,30,10,20,5,J) 

would cause the variable I to be given the value 13, and the variable 
J to be assigned the value 80. 


2.3.1 Subprogram Register Usage 

A subprogram that is called by a FORTRAN IV program need not preserve 
any registers. However, the contents of the hardware stack must be 
kept so that each 'push' onto the stack is matched by a 'pop' from the 
stack prior to exiting from the routine. 

User-written assembly language programs that call FORTRAN IV 
subprograms must preserve any pertinent registers before calling the 
FORTRAN IV routine and restore the registers, if necessary, upon 
return. 

Function subprograms return a single result in the hardware registers. 
The register assignments for returning the different variable types 
are listed in Table 2-2. 


Table 2-2 

Return Value Convention for Function Subprograms 


Type 

Result in 

INTEGER* 2 


LOGICAL*1 



R0 

INTEGERM 


LOGICALM 

R0 -- low-order result 


Rl -- high-order result 

REAL 

R0 — high-order result 


Rl -- low-order result 

DOUBLE 


PRECISION 

R0 — highest-order result 


Rl — 


R2 — 


R3 — lowest-order result 

COMPLEX 

R0 — high-order real result 


Rl -- low-order real result 


R2 -- high-order imaginary result 


R3 — low-order imaginary result 


In addition, assembly language subprograms which use the FP11 Floating 
Point unit may be required to save and restore the FPU status. 
FORTRAN IV assumes that the FPU status is set by default to: 


• Short floating mode (SETF) 

• Short integer mode (SETI) 

• Floating truncate mode 
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Should the assembly language routine modify these defaults, it must 

preserve the FPU status on entry by executing the following 
instruction: 

STFPS -(SP) 

and restore the status (prior to returning to the calling program) by 
executing the instruction: 

LDFPS (SP)+ 


2.4 VECTORED ARRAYS 

Array vectoring decreases the time necessary to reference elements of 
a multidimensional array by using additional memory to store the 
array. 

Since multidimensional arrays are stored sequentially in memory, 
certain address calculations determine the location of individual 
elements. Typically, a mapping function performs this calculation 
For example, to locate the element LIST(1,2,3) in an array dimensioned 
LIST(4,5,6), use a function equivalent to the following. This 

function identifies a location as an offset from the origin of the 
array storage. ^ 


(sl-1) + dl * (s2 - 1) + dl * d2 * (s3 - 1) = 

( 0 ) + 4 * ( 1 ) + 4 * 5 * ( 2 ) = 44 

where 


si = subscript i 
di = dimension i 

Such a mapping function requires multipiication operation(s), and some 
PDP-11 hardware configurations do not have the MUL instruction. The 
compiler can reduce execution time at the expense of memory storaqe bv 
"vectoring" some arrays. 1 

Since array vectors map only the declared dimensions of the array, you 
must ensure that references to arrays are within their declared 
bounds. A reference outside the declared bounds of a vectored array 
causes unpredictable results (for example a program interrupt). You 
must give particular attention to arrays passed to subprograms where 
the dimensions declared in the subprogram differ from those specified 
in the calling program. in such cases, two sets of vectors are 
created: one for the calling program and one for the subprogram. The 
subprogram vectors map only that portion of the array declared by the 

subprogram. (The PDP-11 FORTRAN Language Reference Manual confine 
more information on dimensions.) -- 


A specific element in 
mapping function, w 
table lookup determ 
two-dimensional arra 
one-dimensional vecto 
column of array B. 
the beginning of the 


a vectored array can be located by a simplified 
thout the need for multiplication. Instead, a 
nes the location. For example, a vectored 
B(5,6) automatically has associated with it a 
that would contain relative pointers to each 
The location of the element B(m,n), relative to 
rray, could then be computed as: 


Vector(n) + m 


using only addition operations. Figure 2-1 depicts the array 
vectoring process. r 
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Array B (5,6) 

Associated 


Vector 

8(1.1) PI 

0 PI 

8(2,1) 

5 P2 

B ( 3,1) 

10 P3 

B ( 4,1) 

15 P4 

B(5,1) 

20 P5 

B (1,2 ) P2 

25 P6 

B ( 2,2) 


B ( 3,2 ) 


• 

The location of element B(m,n) = 


Vector(n) + m 

B(1,6) P6 


B(2,6) 

the example the location of B(4,3) = 

B ( 3,6 ) 


B (4,6 ) 

Vector (3) + 4 = 10 + 4 = 14 

3(5,6) 



Figure 2-1 Array Vectoring 


The compiler bases the decision to vector a multi-dimensional array on 
the computed ratio of the space required to vector the array to the 
total storage space it requires. The array is not vectored if this 
ratio is greater than 25 percent. A standard mapping function is used 
instead. Arrays with adjustable dimensions are never vectored. 
Vectored arrays are noted as such in the storage map listing. 

The compiler option /NOVECTORS (/V) suppresses all array vectoring. 

The amount of memory required to vector an array is the sum of all 
array dimensions except the first. For example, the array X(50,10,30) 
requires 10+30=40 words of vector table. Note that the array V(5,100) 
requires 100 words of vector storage, whereas the array Y(100,5) 
requires only 5 words of vector storage. It is qood programming 
practice to place an array*s largest dimension first when it will be 
vectored. 

Wherever possible, vector tables are shared among several different 
arrays. The compiler arranges shareable vectors under the following 
conditions: 

Arrays are in the same program unit. 

For the ith dimension vector to be shared by the arrays, 
dimensions to the left of the ith dimension must be equivalent in 

each array. 

For example, given the statement DIMENSION A(10,10) ,B (10,20), A and B 
share a 20-word vector for the second dimension that contains the 

values 0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 
150, 160, 170, 180, 190, of which the array A uses only the first 10 

elements. 
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2.5 PROGRAM SECTIONS 


Program Sections (PSECTS) contain code and data and are identified hv 

«s2SiatJd m iith a Jach e pSS{ 8 diMct t Se Unk^ti 1 Uy^o'c T attributes 

s eparat el y compiled FORTRAN program units, assembly lang^a^e module^ 
and library routines into an executable program. The followfno 
attributes are associated with these sections: ^ 

Concatenate (CON) 

Data (d) 

Global (GBL) 

Relocatable (REL) 

Read/Write (RW) 


or 

Overlay 

(OVR) 

or 

Instruction 

(I) 

or 

Local 

(LCL) 

or 

or 

Absolute 

Read-Only 

(ABS) 

(RO) 


2.5.1 Compiled Code PSECT Usage 

The compiler organizes compiled output into three nrnnr am 

“ hlch »•« the attributes and con«n?s she™ 2 -! °" S 


Table 2-3 

Compiler Organization of Program Sections 


Section 

Name 

Attributes 

Contents 

$CODE 

RW*, I, LCL, REL, 

CON 

All executable code, including 
threaded and in-line, for a 
program unit 

$DATAP 

RW*, D, LCL, REL, 

CON 

Pure data (for example, 
constants, FORMATS, array 
vectors), which cannot change 
during program execution 

$DA TA 

. 

RW, D, LCL, REL, 

CON 

Impure data, variables, temporary 
storage, and arrays used in the 
FORTRAN program 


The RO/RW attribute for sections $CODE and $DATAP is controlled 
by the compiler /Z command option. See Section 1.2.2. 

When named PSECTS with the CON attribute are concatenated by the LINK 
utility, ail PSECTS with the same name are allocated 

beginning at the same address. The length of the resulti™ pIect il 
the sum of the individual sections so defined. 9 PSECT is 


2.5.2 Common Block PSECT Usage 

FORTRAN COMMON storage is placed in named PSECTs. The PSECT name ic 


2-14 














FORTRAN IV OPERATING ENVIRONMENT 


For example, the statement: 

COMMON /X/ A,B,C 

produces the equivalent of the following MACRO-11 code: 


.PSECT X, RW. D. GBL. REL, OVR 


A: •BLKW 2 

B: .BLKW 2 

C: .BLKW 2 

FORTRAN blank COMMON uses 
statement: 

COMMON C,B /X/ A 


the section name .$$$$•? 


produces the equivalent of: 


thus the 


PSECT 

.$$$$., RW, D, 

GBL, 

REL 

BLKW 

2 



BLKW 

2 



PSECT 

X, RW, D, GBL, 

REL, 

OVR 

BLKW 

2 




When named PSECTs with the OVR attribute are combined by the LINK 
utility, all PSECTs with the same name are allocated together 
beginning at the same address. The resulting PSECT has a length that 
is the maximum of the individual sections so combined. 


2.5.3 OTS Library PSECT Usage 

Modules included in the OTS library and referenced by the compiled 
program are segmented into five program sections, as shown in Table 
2-4. 


Table 2-4 

Organization of OTS Library Modules 


Section 

Name 

Attributes 

Contents 

OTS$ I 

RW, I, LCL, REL, 

CON 

All pure code and data for the 
module 

OTS$P 

RW, D, GBL, REL, 

OVR 

Pure tables of addresses of other 
OTS library modules 

OTS$D 

RW, D, LCL, REL, 

CON 

Pure data referenced by the 

module 

OTS$S 

RW, D, LCL, REL, 

CON 

Scratch storage referenced by the 
module 

0TS$0 

RW, I, LCL, REL, 

CON 

OTS routines sensitive to USR 
swapping 
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2.5.4 Ordering of PSECTs in Executable Programs 

The order in which program sections are allocated in the executable 
program is controlled by the order in which they are first presented 
to the LINK utility. 


I 


Applications that are sensitive to this ordering typically separate 
those sections that contain read-only information (such as executable 
code and pure data) from impure sections containing variables. 

The main program unit of a FORTRAN program (normally the first object 

program in sequence presented to LINK) declares the following PSECT 
ordering: 


Section Name 

OTS$I 
OTS$P 
SYS$ I 
USER$I 
$CODE 
0TS$0 
SYS$0 
$DATAP 
OTS$D 
OTS$S 
SYS$S 
$DATA 
USER$D 
.$$$$. 

Other COMMON Blocks 


Attributes 


RW, 

i, 

LCL , 

REL, 

CON 

RW, 

D, 

GBL, 

REL, 

OVR 

RW, 

I, 

LCL, 

REL, 

CON 

RW, 

I, 

LCL, 

REL, 

CON 

RW, 

I, 

LCL, 

REL, 

CON 

RW, 

I, 

LCL, 

REL, 

CON 

RW, 

l, 

LCL, 

REL, 

CON 

RW, 

D, 

LCL, 

REL, 

CON 

RW, 

D, 

LCL, 

REL, 

CON 

RW, 

D, 

LCL, 

REL, 

CON 

RW, 

D, 

LCL, 

REL, 

CON 

RW, 

D, 

LCL, 

REL, 

CON 

RW, 

D, 

LCL, 

REL, 

CON 

RW, 

D, 

GBL, 

REL, 

OVR 

RW, 

D, 

GBL, 

REL, 

OVR 


In the RT-11 environment, the User Service Routine (USR) may swap over 
pure code, but must not be loaded over constants or impure data that 
may be passed as arguments to it. 

The above ordering, collects all pure sections before impure data in 
memory and USR may safely swap over sections $CODE, OTS$I, OTS$P. 
SYS$I, and USER$I. 

Assembly-1anguaqe routines used in applications sensitive to PSECT 
ordering, should use the same program sections as output by the 

compiler for this purpose. That is, place pure code and read-only 
data in section USER$I, and all impure storage in section USER$D. 
This will ensure that the assembly language routines will participate 
in the separation of code and data. 

Note that the ordering of PSECTs in an overlay program will follow the 
guidelines herein for each overlay segment (for example, the root 
segment will contain pure sections followed by impure, and each 
overlay segment will have a similar separation of pure and impure 
internal to its structure). 


In overlay environments, PSECTs with the GBL attribute will be 
allocated in the root segment if they are referenced by more than one 
overlay segment in the same region. 

To build an application based on read-only memory (ROM), include 
sections $CODE, OTS$I, OTS$P, SYS$I, USER$I, $DATAP, 0TS$0, and OTS$D 
in the read-only memory. Use the "round section" capability of the 
LINK utility to increase the size of the section OTS$D, to round the 
base address of section OTS$S up to the first available read-write 
memory location following the ROM. 
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ROM-based applications created in this manner must obey these 
programming restrictions: 

• Variables or arrays may not be initialized with a DATA 
statement. Use assignment statements instead. 

• Formatted READ statements may not transfer ASCII data into 
Hollerith fields in the FORMAT statement itself. Instead, 
place the data in a variable or array. 


The PSECT ordering specified by the compiler may not be suitable for 
some applications. The user can define ordering 
MACRO-11 source file that contains only 
in which the declarations appear in 
which the sections will be allocated in 
sure that the attributes specified 
assigned by the compiler. 


by creating a 
PSECT declarations. The order 
this file will be the order in 
the executable program. Be 
in this file agree with those 


The MACRO 11 source file containing the desired ordering must be 
assembled and used as the first input file in the LINK command. 

The above technique allows the use of data-initialized COMMON blocks 
in ROM applications (if the program does not attempt to modify the 
values in these COMMON blocks, which will be placed in read-only 

memory). The new ordering defined by the MACRO-11 source file should 
then be: 


.PSECT 

OTS$ I 

RW, 

i» 

LCL , 

REL, 

CON 

.PSECT 

OTS$P 

RW, 

D, 

GBL , 

REL, 

OVR 

.PSECT 

SYS$ I 

RW, 

If 

LCL, 

REL, 

CON 

.PSECT 

USER$I 

RW, 

I, 

LCL, 

REL, 

CON 

.PSECT # 

$CODE 

RW, 

If 

LCL, 

REL, 

CON 

.PSECT 

0TS$0 

RW, 

I, 

LCL, 

REL, 

CON 

.PSECT 

SYS$0 

RW, 

I, 

LCL, 

REL, 

CON 

.PSECT 

$DATAP 

RW, 

D, 

LCL, 

REL, 

CON 

.PSECT 

coml 

RW, 

D, 

GBL, 

REL, 

OVR 

.PSECT 

com2 

• 

• 

RW, 

D, 

GBL, 

REL, 

OVR 

• 

• 

• 

.PSECT 

• 

comn 

• 

• 

RW, 

o. 

GBL, 

REL, 

• 

OVR 

.PSECT 

OTS$D 

RW, 

D, 

LCL, 

REL, 

CON 

.PSECT 

OTS$S 

RW, 

D, 

LCL, 

REL, 

CON 

.PSECT 

SYS$S 

RW, 

D, 

LCL, 

REL, 

CON 

.PSECT 

$DATA 

RW, 

D, 

LCL, 

REL, 

CON 

.PSECT 

USER$D 

RW, 

D, 

LCL, 

REL, 

CON 

.PSECT 

.$$$$. 

RW, 

D, 

GBL, 

REL, 

OVR 


where coml, com2, . .., comn represent the names of the read-only 
COMMON blocks that will contain pure data. 

For further information on ROM applications, see the PROM/RT-11 User's 
Guide. --- 


2.6 TRACEBACK FEATURE 


The traceback feature included in RT-11, RSTS/E FORTRAN IV fatal 
runtime error messages locates the actual program unit and line number 
of a runtime error. Immediately following the error message, the 
error handler lists the line number and program unit name in which the 


2-17 










FORTRAN IV OPERATING ENVIRONMENT 


error occurred. If the program unit is a SUBROUTINE or FUNCTION 
subprogram, the error handler traces back to the calling program unit 
and displays the name of that program unit and the line number where 
the call occurred (see Figure 2-2), This process continues until the 
calling sequence has been traced back to a specific line number in the 
main program. This allows an exact determination of the location of 
an error even if the error occurs in a deeply nested subroutine. 

0001 A=0.0 

0002 CALL SUB 1(A) 

0003 CALL EXIT 

0004 END 

0001 SUBROUTINE SUBl(B) 

0002 CALL SUB2 (B) 

0003 RETURN 

0004 END 

0001 SUBROUTINE SUB2(C) 

0002 CALL SUB3 (C) 

0003 RETURN 

0004 END 

0001 SUBROUTINE SUB3 (D) 

0002 E=1•0 

0003 F=E/D 

0004 RETURN 

0005 END 

Traceback of Fatal Error: 

?ERR 12 FLOATING ZERO DIVIDE 

IN ROUTINE "SUB3 " LINE 3 

FROM ROUTINE "SUB2 " LINE ? 

FROM ROUTINE "SUBl " LINE 2 

FROM ROUTINE ".MAIN." LINE 2 


Figure 2-2 The Traceback Feature 


Note in Figure 2-2 that the line number in the traceback of routine 
1 SUB2 1 is simply a question mark (?). This is because the module was 
compiled with the /NOLINENUMBERS option (/S) in effect (see Section 
1 . 2 . 2 ) . 


2.7 RUN-TIME MEMORY ORGANIZATION* (RT-11 ONLY) 

The run-time memory organization in both a USR (User Service Routines) 
swapping system and a USR resident system operates as shown in Figure 
2-3. When user-written interrupt-handling routines are linked with a 
FORTRAN IV program, avoid USR swapping over the interrupt routines and 
any associated data. The USR is swapped in above the interrupt 
vectors at location $$OTSI, and extends about 2K words from that point 
(see Figure 2-3). Interrupt routines must therefore be loaded above 
the area used for USR swapping when the USR will be actively swapped. 


Unless 
USR is 

explicitly disabled by the 
actively swapped. 

compiler 

option 

/NOSWAP 

(AJ) , 

the 

Some run-time memory segments are 

fixed in 

.size • 

These 

include 

the 


resident monitor, the OTS work area, the stack and interrupt vector 
areas, and, in the USR resident system, the User Service Routine area. 
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Other run-time memory segments vary in length in accordance with the 
length of the user program. The device handlers, channel tables, and 
I/O buffers are allocated space dynamically. Only those handlers 
needed for currently active devices are resident. I/O buffers are 
allocated and deallocated as required. 

However, there is a limit to the amount of space that can be allocated 
to the varying-length memory segments. In an 8K swapping system, 
approximately 5K words are available; in an 8K resident system, the 
total is approximately 3K words. 

If a large FORTRAN IV program cannot be run in the amount of memory 
available, reduce the size of a run-time memory segment to allow 
successful program execution. Use overlay capabilities (see Section 
1.4.1) to reduce the amount of memory needed for the user program. 
Minimize the number of different physical devices used for I/O to 
reduce the number of handlers that must be resident. When the program 
finishes I/O to a file, close it by using the CALL CLOSE routine (see 
Section B.4) or the CLOSE statement, thereby reallocating the buffer 
space to any new file to be opened. 


37777 


5K 


1000 


V 


RMON 


OTS WORK 
AREA 


136 BYTE 
LINE BUFFER 


CHANNEL TABLES 


DEVICE HANDLERS 


I/O BUFFERS 


OTS 


PROGRAM 


STACK 


VECTORS 


37777 


USR 


1000 


RMON 


USR 


OTS WORK 

AREA 

\ 

136 BYTE 

LINE BUFFER 

CHANNEL TABLES 


DEVICE HANDLERS 


I/O BUFFERS 


OTS 


PROGRAM 

/ 

STACK 

♦ 


VECTORS 



SWAPPING SYSTEM 


RESIDENT SYSTEM 


Figure 2-3 RT-11 8K System Run-time Memory Organization 
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CHAPTER 3 



FORTRAN IV SPECIFIC CHARACTERISTICS 




This chapter applies specifically to the FORTRAN IV language as it 
operates under the RT-11 and RSTS/E systems. The material presented 
here both relaxes the restrictions imposed by the PDP-11 FORTRAN 
Language Reference Manual and provides additional material essential 
to RT-11 and RSTS/E users but not covered in the Manual. 

Note that these deviations from the FORTRAN syntax requirements of the 
manual apply only to RT-11 and RSTS/E. Your resulting program cannot 
be freely transported to another operating system without careful 
planning for that system's peculiarities and language requirements. 
RT-11, RSTS/E FORTRAN IV relaxes the strict statement ordering 
specifications of the manual and makes only the following three 
statement ordering requirements: 

1. The first noncomment line in a subprogram must be a FUNCTION, 
SUBROUTINE, or BLOCK DATA statement. 

2. The last line in a program unit must be an END statement. 

3. Statement functions must be defined before they are 
referenced. 

If you do not follow the statement ordering requirements of the 
manual, you can have a warning diagnostic included with the source 
listing by using the /WARNINGS option (/W). 


3.1 OPEN/CLOSE STATEMENT RESTRICTIONS 

Although the OPEN and CLOSE statements have an optional "ERR=label" 
error exit, only the following OPEN/CLOSE error conditions will cause 
control to be passed to "label": 

Syntax error in filespec for NAME* 

File not found NAME* 

OPEN (UNIT=n, ...) when a file is already open on unit n 

CLOSE (UNIT=n, ...) when no file is open on unit n 

CLOSE (UNIT=n, DISPOSE*'PRINT', ...) RSTS/E only - when an error 
occurs from sending the file to QUEMAN 
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3.1.1 Keyword Constraints 

Valid keywords in the FORTRAN IV OPEN/CLOSE statements are the same 

for RT-11 and RSTS/E as those described in the FORTRAN Language 
Reference Manual . - 2 - 

However, since FORTRAN IV does not support some keywords and options 
under RT-11 and RSTS/E, certain constraints must be recognized in 
constructing OPEN/CLOSE statements. These constraints are shown in 
Table 3-1. 



Table 3-1 

Keyword Constraints Under RT-11 and RSTS/E 


Keywo rd 

RT-11 

RSTS/E 

ACCESS 3 “APPEND** 

Not supported. Results 
in error at compile 
time and at run time. 

Appends data to the end of 
an existing file. 

BUFFERCOUNT 3 

be 

Specifies the number of 
buffers (one or two) to be 
used when outputting data 
on the logical unit. If 
not specified, one buffer 
is allocated. 

Accepted, but ignored. The 
RSTS/E file system does not 
support multiple buffering. 

BUFFERSIZE 3 

bs 

Not supported. Results in 
error at compile time 
and run time. 

Same as RT-11 

CARRIAGE 

CONTROL 

Formatted files must have 
the attribute 'FORTRAN' or 
'LIST'. Unformatted or 
random access files must 
have the attribute 'NONE'. 

Same as RT-11 

DISPOSE 3 

'PRINT' 

Results in a compile-time 
error. Not supported. 

Causes the file to be printed 
by the system line printer 
spooler under direction of 

Queue Manager ("QUEMAN"). 

The FORTRAN M QUEMAN M request 
includes these attributes: 
DEVICE 3 LPO 

PRIORITY 3 128 

FILETYPE 3 0 (EMB) or 1 (FTN), 
whichever describes the file 
type. 

EXTENDS IZ E 3 

es 

Not supported. Results in 
error at compile time and 
at run time. 

Specifies the cluster size for 
the file. The cluster size 
value is the first power of 
two greater than or equal to 
es. If this value is less than 
pack cluster size, or if 

EXTEND SIZE is not specified, 
the pack cluster size is 
assumed. 


(continued on next page) 
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Table 3-1 (Cont.) 

Keyword Constraints Under RT-11 and RSTS/E 


Keyword 

RT-11 

RSTS/E 

FORM- 

’FORMATTED 1 

Not allowed on direct 
access files. 

Same 

INITIALSIZE= 

is 

The default initial allo¬ 
cation is the larger of 
two areas: the second 
largest empty area or one 
half of the largest area. 
INITIALSIZE controls the 
entire allocation for the 
file since extension is 
not supported. 

The default initial alloca¬ 
tion is zero blocks. The file 
is dynamically extended as 
required for write operations. 

MAXREC= 

mr 

The size of the initial 
allocation made for a 
direct access file is the 
larger of two parameters: 
INITIALSIZE or the prod¬ 
uct RECORDSIZE and 

MAXREC. 

1 

Same 

NOSPANBLOCKS 

) 

Not supported; error 

Accepted, but ignored. The 
RSTS/E file system does not 
support NOSPANBLOCKS. 

RECORDSIZE 

Must be specified for 
direct access files. 

Same 

SHARED 

Not supported. Results 
in error at compile time 
and at run time. 

Causes the file to be opened 
in "UPDATE" mode (mode=l) for 
shared access by enabling 
disk block locks. See also the 
CALL UNLOCK system routine. 

(App B) 






3.2 SOURCE LINES 

A valid RT-11, RSTS/E FORTRAN IV source line consists of the 
following: 

1. An optional, one- to five-character, numeric statement label, 
followed by 

2. Sufficient blanks to position the next character at column 7 
(if not a continuation line) or column 6 (for continuations; 
a continuation signal character will be typed) 


a tab character followed by any nonalphabetic character to 
signal continuation, 

a tab character, if the line is not a continuation. 
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3. A valid FORTRAN 
statement, and 


statement, or the continuation of 


4. An optional comment 
exclamation point (!) 


field delimited on the left by 


Totally blank records (a 
feed combination) are 
blank, it must contain a 


source line of only a 
ignored on input. if 
FORTRAN statement. 


a n 


carriage 
a line is 


return/line 
not totally 


3.3 VARIABLE NAMES 


RT 11, RSTS/E FORTRAN IV allows variable 
characters. However, only the first six ch 
and should be unique among all variable names 
warning diagnostic occurs for each variabl 
characters in length. Warning diagnostics 
compilation listing if the /WARNINGS option 
compiler command string. 


names to exceed six 
aracters are significant 
in the program unit. A 
e name which exceeds six 
will appear in a 
(/W) is included in the 


3.4 INITIALIZATION OF COMMON VARIABLES 


RT-ll/RSTS/E FORTRAN IV allows any variables 
blank COMMON, to be initialized in any proqram 
statement. 


in COMMON, including 
unit by use of the DATA 


3.5 CONTINUATION LINES 


A line is assumed to be a continuation line if 
following a tab on an input line to the compiler 


the first character 
is nonalphabetic. 


RT 11/RSTS/E FORTRAN IV does not place any limits 
continuation lines that a statement may contain. 


on the number of 


3.6 STOP AND PAUSE STATEMENTS 

a program to be 
the contents of the 
To resume program 

For example, use of the FORTRAN statement: 

PAUSE 'MOUNT A NEW TAPE' 


The PAUSE statement causes the execution of 
temporarily suspended by typing the word PAUSE and 
text string (if any) on the user's terminal, 
execution, type a carriage return. 


causes the following line to be printed at 
PAUSE — MOUNT A NEW TAPE 


the user's terminal: 


Execution of the STOP statement closes all 
to the operating system. To terminate 
printing the STOP message, use CALL EXIT. 


files and returns control 
a program execution without 
(See Section B.7.) 
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The STOP statement causes the following output to be printed: 

STOP — text 

where text is the optional text string from the source statement. 


3.7 DEVICE/FILE DEFAULT ASSIGNMENTS 

The device and file name default assignments are listed in Table 3-2. 
The default device assignments can be changed prior to execution by 
using the OPEN statement or the monitor ASSIGN command. 

The RT-11 monitor command: 

.ASSIGN LP: 7 

connects logical unit 7 to a physical device, the line printer. The 
device and file name assignments can be changed at execution time by 
use of the ASSIGN system subroutine or the FORTRAN OPEN statement. 
Valid logical unit numbers other than those listed below (10-99) are 
assigned to the system default device (public structure on RSTS/E). 
The default filename conventions hold for logical units not listed 
below, for example, unit number 49 will have a default file name of 
FTN49.DAT. Refer to the RT-11 System User's Guide or the RSTS/E 
System User's Guide . 


Table 3-2 

FORTRAN Logical Device Assignments 


Logical Unit 
Number 

Default Device 

Default File name 

1 

System disk, or 

FTN1.DAT 


public structure SY: 


2 

Default device 

FTN2.DAT 

3 

Default device 

FTN3.DAT 

4 

Default device 

FTN4.DAT 

5 

Terminal, TT:(Input) 

FTN5.DAT 

6 

Line printer, LP: 

FTN6.DAT 

7 

Terminal, TT:(Output) 

FTN7.DAT 

8 

High-speed paper 



tape reader, PC: 

FTN8.DAT 

9 

High-speed paper 



tape punch, PC: 

FTN9.DAT 


Although any combination of valid logical unit numbers can be used, 
there is an imposed maximum number of units that can be simultaneously 
active. By default, six logical units can be concurrently active. 
The number can be changed by use of the /UNITS option (/N) in the 
compiler command string while compiling the main program unit (see 
Section 1.2.2). 

A formatted READ statement of the form: 

READ f,1ist 


is equivalent to: 
READ(1,f)list 
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For all purposes these two forms function identically. For example, 
assigning logical unit number 1 to the terminal, in both cases, causes 
input to come from the terminal. 


The ACCEPT, TYPE, and PRINT statements also have 
analogies. Assigning devices to logical units 5, 
ACCEPT, TYPE, and PRINT statements respectively. 


similar functional 
7, and 6 affects the 


3.8 MAXIMUM RECORD LENGTHS 

The line buffer allocated to store I/O records temporarily is by 
default 136 bytes. This restricts all I/O records in formatted I/O 
statements to a maximum of 136 characters. The size of this buffer, 
and consequently the maximum record length, can be chanced bv 
including the /RECORD option (/R) in the compiler command string while 

?r4m n ?ytelT(7m ScHl" Un ‘ t- Th ' sl ” ° £ the >»■»« 


3.9 DIRECT ACCESS I/O 


RT 11, RSTS/E FORTRAN IV. allows creation and modification 
access files. 


of direct 


3.9.1 DEFINE FILE Statement 


The first parenthesized argument 
the length, in records, of the 
However, if the statement is par 
value may not be readily avail 
some extra flexibility in this s 
specification of zero records 
allocated initially and the 
deallocated when the file is 
particularly useful in this si 
length of the file. 


in a DEFINE FILE statement spec 
direct access file being initial 
t of a file creation procedure, 
able. RT-11, RSTS/E FORTRAN IV a 
ituation. Under RT-11, a file 1 
causes a large contiguous file 
unused portion to be automati 
closed. The "END=" constructi 
tuation for determining the a 


if ies 
ized. 

this 
Hows 
ength 
to be 
cal ly 
on is 
ctual 


Under RSTS/E a file length specification of zero records causes the 
m.mLr f fended dynamically as required by the highest record 
number referenced during program execution, if the record size is an 

wi?h rh mU iopM ► ° f 256 ' The DEFINE FILE statement must not be used 
with the OPEN statement. The OPEN statement specifies a record size 

in units of 2 words; whereas the DEFINE FILE statement specifies a 
record size in units of 1 word. 


3.9.2 Creating Direct Access Files 


The first I/O operation performed on a direct access file durin< 
creation must be a WRITE operation. A READ or FIND operatioi 
such circumstances produces a fatal error condition. 


file 

under 


3.10 INPUT/OUTPUT FORMATS 


RT-11, RSTS/E FORTRAN IV allows formatted input and outout for 
transferrmg ASCII files, and unformatted and direct access JSpSt and 

?u t 5 Ut for transferrin 9 binary records. Note, however that Fortran 
IV does not support ACCEPT or SEND I/O to other KBr's. thF0RTRAN 
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Some run-time errors can be intercepted and control transferred to a 
predetermined program label by use of the ERR= parameter. This 
parameter can be specified in the READ, WRITE, ENCODE, or DECODE 
statements. Note that a count n error will become fatal on the nth 


occurrence of the 

error. 


The following errors can be 

intercepted: 

ERROR 

ERROR 


NUMBER 

TYPE 

MESSAGE 

5 

Count 3 

Input conversion error 

23 

Fatal 

Hardware I/O error 

45 

Fatal 

Incompatible variable and 

46 

Fatal 

Infinite format loop 


3.10.1 Formatted I/O 

The formatted input/output routines read or write variable-length, 
formatted ASCII records. A record consists of a number of A6CII 
characters, transmitted under control of a format specification, 
followed by a record separator character(s). 

On input, the parity bit of each input character is removed (set to 
zero); only the seven-bit ASCII character is transferred. Also, null 
characters (bytes of zero) are not transmitted on input. 

On output to a printing device (KB:, TT: , or LP:), the record 
separator appended to each record consists of a carriage return 
character. The carriage return can be suppressed by use of the "$" 
format separator character in the FORMAT statement (see Chapter 6 of 
the PDP-11 FORTRAN Language Reference Manual ). The first character of 
each record is deleted from the record and is interpreted as a 
carriage control character. 


3.10.2 Unformatted I/O 

When unformatted I/O routines read or write variable-length binary 
records, they add control and file positioning information to the user 
data. The control information is contained in each block of the file 
and allows file positioning through auxiliary I/O statements, for 
example, BACKSPACE. The block consists of 256 words, numbered from 0 
to 255, and contains a directory describing the records that end in 
the block. The directory begins at word 254 and builds backward 
towards the start of- the block. Word 255 is the number of records 
that end in the block; bit #15 indicates end-of-file (EOF) for the 
file. Each directory entry is one word long and points to the end of 
a record; its high order bit flags an end of file record. 
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As an example, assume the last three words (in octal) of block 0 of 
an unformatted file to be: 

100040, 40, 2 

and the last four words (in octal) of block 1 of the same unformatted 
file to be: 

106, 56, 46, 100003 

This is interpreted as follows: 

Block 0 contains records 1, 2, and the start of record 3. Record 1 
extends from block 0, byte 0 to (but not including) block 0, byte 40. 
Record 2 is an ENDFILE record, denoted by bit #15 being on in the 
end-of-record pointer; ENDFILE records have no length. Record 3 
spans blocks beginning at block 0, byte 40 and extending to (but not 
including) block 1, byte 46. Block 1 also contains record 4 (byte 46 
to 56) and record 5 (byte 56 to 106). Since the high-order bit of 
word 255 of block 1 is set, this file contains only 5 records. 

This file format is unique to FORTRAN and may not be easily accessed 
by programs written in another language. To read or write a file 
constructed in a programming language other than FORTRAN, use 
formatted I/O for ASCII data and direct access I/O for binary data. 


3.10.3 Direct-Access I/O 

The direct access input/output routines read or write fixed-length, 
binary records. The logical record structure for a direct-access file 
is determined by the DEFINE FILE statement or the /RECORDSIZE option 
in the OPEN statement. The records contain only the specified data; 
no control information or record separators are used. 

The direct access record structure is independent of the physical 
block size of the I/O device. However, more efficient operation 
results if the record size is an exact divisor or multiple of 256 
words. 


3.11 MIXED-MODE COMPARISONS 

When comparing a single precision number to a double-precision number, 
the double-precision number may appear to be not equal to the 
single-precision number in magnitude even though they should be equal. 
For example: 

DOUBLE PRECISION D 

A=5 5.1 

D=5 5•1D0 

IF(A.LT.D)STOP 

In the example above, A compares less than D because 55.1 is a 
repeating binary fraction. Before the comparison, the 24-bit 

fractional (mantissa) part of A is extended with 32 zero bits. These 
low-order 32 bits are now less than the low-order 32 bits of D, and D 
therefore compares greater than A. With some other values (for 
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example, 5.51), the single-precision value will compare greater than 
the double-precision value owing to the conversion rounding 
conventions in going from double to single precision. 


3.12 PORTRAN BUPPERED I/O 

FORTRAN output to sequential files other than the console terminal is 
sent to a 512-character buffer, which is written to the output device 
only when the buffer is filled or the file is closed; this process is 
most noticeable in a program that generates line-printer output. 

If you want to force the current buffer to output to the line printer 
without the file being closed and reopened, include a 'REWIND' 
statement at each of those points. 














CHAPTER 4 


INCREASING FORTRAN IV PROGRAMMING EFFICIENCY 


4.1 FACTORS AFFECTING PROGRAM EFFICIENCY 

This chapter is directed to the programmer who is interested in 
minimizing program execution time or storage space requirements. 

The relative efficiency of an RT-11, RSTS/E FORTRAN IV object program 
derives from several factors, which fall into two classes: 

1. The way in which the programmer codes the source program, and 

2. The way in which the compiler treats the source program. 


These two factors are interrelated. Compiler optimizations can be 
increased by certain programming techniques in the source proqram. 
The programmer should code the source program so as to utilize those 
FORTRAN constructs which the compiler handles most efficiently. 

Section 4.2 deals with the situations in which the compiler generates 
the most efficient code. Section 4.3, Programming Techniques, 
contains hints on improving programming efficiency. 

Each topic discussed in the following section is flagged with one of 
the following remarks: 


(space) indicates that the primary function of the 

discussion is to minimize program memory 
requirements. 

(time) indicates that the primary concern is minimization 

of execution time. 

A particular topic can have both designations, indicating a savings in 
both space and time. 


4.2 INCREASING COMPILATION EFFECTIVENESS 

The following 12 programming suggestions will increase compilation 
effectiveness. 

1. Using the Optimizer effectively (space,time) 

Avoiding certain programming constructs allows the optimizer 
greater freedom to discover common subexpressions in source 
programs. Specifically, avoid the following situation: 

Usage of equivalenced and COMMON variables, and 
SUBROUTINE and FUNCTION dummy arguments. 
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2. Passing arguments to subprograms (space, time) 

To minimize overhead in FUNCTION and SUBROUTINE calls, 
parameters should be passed in COMMON blocks rather than 
standard argument lists. Variables in COMMON are handled as 
efficiently as local variables. 

Minimizing the number of elements in the argument list (by 
placing others in COMMON) reduces the time required to 
execute the transfer of control to the called routine. 

3. Statement functions (time) 

Arithmetic and logical statement functions are implemented as 
internal FUNCTION subprograms. Hence, all suggestions 
concerning argument lists apply to statement functions also. 

4. Minimizing array vector table storage (space) 

The RT-11, RSTS/E FORTRAN IV array-vectoring feature is 
designed to decrease the time required to compute the address 
associated with an element of a multidimensional array by 
precomputing certain of the multiplication operations 
involved. The values precomputed are stored in a table 
called the "vector" for the particular array dimension. It 
is desirable to minimize the space allocated to these 
vectors. 

The following steps can be taken by the programmer to reduce 
the space required for array vectors: 

• Specify the largest dimensions first in the statement 
that allocates the array. This minimizes the number of 
vector table entries, as the first dimension is never 
vectored. For example, 

INTEGER A(350,10) requires 10 words to vector 

INTEGER A(10,350) requires 350 words to vector 

The compiler computes a space tradeoff factor that 
relates the number of words required for vector storage 
to the number of words required to store the array. If 
this tradeoff is favorable (for example, the vector table 
is small compared to the array), the array is vectored. 
Therefore, the proper orderinq of dimensions not only 
saves table space for all vectored arrays, but can also 
cause other arrays to be made eligible for vectoring. 

• Try to keep similar arrays dimensioned in the same order. 
This will cause certain arrays to share vector tables. 
For example: 

INTEGER A(9,4,5), B(9,4,7), C(9,8) 

all share the same two vectors, one for the second array 
dimension and one for the third. The vector for the 
second dimension will have eight elements (@ 1 word each) 
because C has the largest second dimension, 8. 
Similarly, the vector for the third dimension has seven 
elements. 
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In the general case, two arrays share a vector table for 
dimension i if each dimension less than i in each array 
is identical to the same dimension for the other array. 
In the example given above, arrays A, B, and C share the 
vector for the second dimension because each array has a 
first dimension equal to 9. 

• Vectoring can be disabled completely by specifying the 
/VECTORS (/V) option in the command string to the 
compiler. This causes no vector tables to be generated, 
but the resulting program executes more slowly than with 
vectoring. This tradeoff can be made if array usage is 
not heavy in speed-critical sections of the program, or 
if space is the primary goal. 

Multidimensioned array usage (time) 

When using multidimensional arrays, the number of specified 
variable subscripts affects the time required to make the 
array reference. Therefore, the following steps can be taken 
to optimize array references: 

• Use arrays with as few dimensions as possible. 

• Use constant subscripts whenever possible. Constant 

subscripts are computed during compilation and require no 
extra operations at execution time. 

• Make totally constant array references wherever 

appropriate. These references receive the highest level 
of optimization. For example, 

I = 1 

A (I) = 0.0 

is not as efficient as 
I = 1 

A (1) = 0.0 

The former case requires a run-time subscript operation; 
in the latter, the compiler can calculate the address of 
the first element of array A at compilation time. 

Formatted input/output (space,time) 

RT-11, RSTS/E FORTRAN IV precompiles and compacts FORMAT 
statements that are presented in the source program. This 
affects the space required to store the format at run time, 
and the speed of the input/output operations that make use of 
the format. 

For this reason, object-time formats (for example, those 
formats specified in arrays rather than as FORMAT statements) 
are considerably less efficient. 

Data type selection (space,time) 

Because of the addressing modes of the PDP-11 processors and 
various optimization considerations internal to FORTRAN IV, 
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more efficient code can be generated for certain data types 
than for others. Specifically: 

• Use the INTEGER data type wherever possible. RT-11, 
RSTS/E FORTRAN IV performs extensive optimizations on 
this data type. 

• Use REAL*4 rather than DOUBLE PRECISION (REAL*8) wherever 
possible. Single-precision operations are significantly 
faster than double-precision, and storage space is saved. 

• Avoid unnecessary mode mixing. For example: 

A = 0.0 

is preferable to 
A = 0 

• Use two REAL*4 variables rather than a C0MPLEX*8 if usage 
of COMPLEX variables in the program is not heavy. REAL*4 
operations receive more optimization than COMPLEX 
operations. 

8. Testing "flag” variables (space) 

Wherever possible, comparisons with zero should be used. 
Comparing any data type to a zero value is a special case 
that requires less executable code. An example of such a 
case is the following: 

IF (I .LT. 1) GOTO 100 

requires more code than 

IF (I .LE. 0) GOTO 100 

9. *2, * * 2 operations (time) 

Explicitly specifying *2 when doubling the value of an 
expression, or **2 when squaring the value of an expression 
can lead to more efficient code. For example: 

A = (B + ARRAY(C))**2 

is preferable to 

A = (B + ARRAY(C)) * (B + ARRAY(C)) 

despite the fact that (B + ARRAY(C)) is computed only once in 

either case. Note that this applies only to expression 
values; 1**2 is as efficient as 1*1. 

10. Compilation options (space) 

To minimize the space required for program execution, the 
following options should be supplied to the compiler: 

/NOLINENUMBERS (/S) to suppress line number traceback 

/VECTORS (/V) to suppress all array vectoring 

In addition, the /I4 (/T) (two-word integer default) option 
should not be specified unless required. 
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The /NOSWAP (/U) OPTION should not be specified if it is not 
required (i.e. # no user-written interrupt or completion 
routines exist in the linked program). 

Specify minimal values for the /UNITS (/N) and /RECORDS (/R) 
compiler options to conserve space at execution time. The 
/UNITS (/N) value should be the number of logical units that 
can be concurrently active. Set the /RECORDS (/R) option to 
the maximum formatted record length plus two (for the 
carriage return/line feed combination that can accompany a 
record). 

12. Compilation options (time) 

Specify the following compiler options to optimize an object 
program for execution time. 

/NOLINENUMBERS (/S) to suppress line number traceback 

/NOSWAP (/U) to prevent the USR (RT-11 file 

service routines) from swapping at 
run time (RT-11 only; ignored 
under RSTS/E) 

Do not specify the following option, because global array 
vectoring speeds program execution. 

/NOVECTORS (/V) will disable array vectoring 


4.3 PROGRAMMING TECHNIQUES 


The following examples compare different programming methods. These 
comparisons show more efficient programming techniques available to 
the user. While both methods are correct for the particular 
operation, the technique on the right has been found more efficient 
than the technique on the left. 


1. Make use of the increme 

INEFFICIENT 

DIMENSION A(20) 

DO 100 1=1,10 
A (2*1)=B 
100 CONTINUE 


t parameter in DO loops: 

EFFICIENT 

DIMENSION A(20) 

DO 100 1=2,20,2 
A (I)=B 

100 CONTINUE 


In the inefficient example, an additional 
is performed each time through the loop, 
are avoided in the efficient example by 
incremented by two. 


calculation (2*1) 
These calculations 
having the count 


2. Avoid placing calculations within loops whenever possible: 


INEFFICIENT 

DO 10 1=1,20 
DO 20 J=1,50 
20 A(J)=A(J) + 1*B*C 
10 CONTINUE 


EFFICIENT 

TEMPl=B*C 
DO 10 1=1,20 
TEMP2=I*TEMPl 
DO 20 J=1,50 
20 A (J)=A(J)+TEMP2 
10 CONTINUE 
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The calculation (B*C) within the loop of the inefficient 
example is evaluated 1000 times. Calculations are handled 
more economically when done outside the loop. In the 
efficient example, 980 "FLOATS" and 1979 floating multiplies 
were saved by performing the (B*C and I) calculations outside 
the loop. 


Proper nesting of DO loops can increase speed by minimizing 
the loop initialization. 

INEFFICIENT EFFICIENT 


DIMENSION A(100,10) 
DO 60 1=1,100 
DO 60 J=l,10 
60 A(I,J)=B 


DIMENSION A(100,10) 
DO 60 J=l,10 
DO 60 1=1,100 
60 A(I,J)=B 


In the first example, the inner DO loop is initialized 100 

times, while in the efficient example it is only initialized 
10 times. 


The most efficient way to zero a large array, or to set each 
element to some value, is to equivalence it to a 
single-dimension array. This technique is even useful for 
copying large multidimensional arrays. 

INEFFICIENT EFFICIENT 


INTEGER A'( 20,100) 
DO 20 1=1,100 
DO 20 J=1,20 
20 A(J,I)=0 


INTEGER A(20,100) 
REAL*8 ATEMP(500) 
EQUIVALENCE (A,ATEMP) 
DO 20 1=1,500 
20 ATEMP(I)=0.0D0 


The efficient example makes use of the eight bytes in REAL*8 
and, by equivalencing, places four integers in the array and 
zeroes them in one operation, thus quartering the number of 
iterations. 


Do as much calculation in INTEGER mode as possible. 

INEFFICIENT EFFICIENT 

A=B+I+J A=B+(I+J) 

Also, do as much calculation in REAL mode when the dominant 
mode of an expression is DOUBLE PRECISION or COMPLEX. 
Calculation is most efficient in integer mode, less efficient 
in REAL mode, and least efficient in DOUBLE PRECISION or 
COMPLEX. Remember, in the absence of parentheses, evaluation 
generally proceeds from left to right. 
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6. Use COMMON to pass arguments and return results of 
subprograms whenever possible. 

INEFFICIENT EFFICIENT 

COMMON/SUBRA/A,B,C,D,E 
COMMON/FUNCTA/Y,Z 


CALL SUBR 
X=FUNCT() 
CALL SUBR 


END 

SUBROUTINE SUBR 
COMMON/SUBRA/A,B,C,D,E 


END 

FUNCTION FUNCT 
COMMON/FUNCTA/Y,Z 


END 

COMMON is handled more efficiently than formal argument 
lists. Generally, it is possible to use COMMON for argument 
passage if a subprogram is referenced from only one place, or 
if it is always referenced with the same actual arguments. 


NOTE 

In PDP-11 FORTRAN IV, function subprograms are not 
required to have arguments, but they must have empty 
parentheses for the compiler to recognize them as 
functions; for example, IGETCO. 


CALL SUBR(A,B,C,D,E) 
X=FUNCT(Y,Z) 

CALL SUBR(A,B,C,D,E) 


END 

SUBROUTINE SUBR(A,B,C,D,E) 


END 

FUNCTION FUNCT(Y,Z) 


END 


7. Avoid division within programs wherever possible. 

INEFFICIENT EFFICIENT 

A=B/2. A= B*.5 

Multiplication is faster than division and thus saves 
execution time. 
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CONCISE COMMAND LANGUAGE OPTION 




5.1 INTRODUCTION TO THE RSTS/E FORTRAN IV CCL OPTION 

The Concise Command Language (CCL) commands provide an alternative 
method for invoking RSTS/E system programs. CCL commands allow a user 
to run a system program by specifying a single command for the program 
to execute. The user types the CCL command and the program command on 
one line and enters it to the system. The system loads the program 

into the user's job area and writes the program command to the core 

common area. This operation destroys the current contents of the 

user's job area. The program runs, reads the command from the core 

common area, and executes. If an error is encountered, the program 
prints a related message and terminates. CCL options are available 
for the following system programs: FORTRAN, LINK, AND MACRO. 

RSTS/E users should contact the system manager for the availability of 
these commands on their system. 


5.2 COMMAND INTERFACE 

The CCL command to invoke the FORTRAN IV Compiler has the form: 
FOR[TRAN] command line 

where 


FOR[TRAN] indicates that the FORTRAN command can be 

abbreviated to these characters (FOR). 

command line has the form: output = input/sw 

The output and input file name specifications 
are described in Section 1.1.1; the compiler 
switches are described in Section 1.2.1. 

The command to invoke the linker, LINK, has the form: 

LINK command line 


where 

command line has the form: output = input/sw 

The output and input file name specifications 
and switch options are described in Section 
1.3. 


The command to invoke MACRO has the form: 
MACRO command line 
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where 


command line has the form: output = input/sw 

The output and input file name specifications 
and switch options are described in the 
RSTS/E FORTRAN IV Utilities Manual. 


5.2.1 CCL Command Restrictions 

Several switch options included in the LINK utility are not acceptable 
to the LINK CCL command line. These switch option restrictions do not 
apply to the "RUN $LINK" invocation of the linker utility but only to 
one line of input to the LINK CCL command. The restricted switches 
are the following: 


/c 

continue input specification on 

multiple 

/E 

extend PSECT 


/I 

include requested library modules 

/M 

specify stack address as global 
(/M:n form is acceptable) 

symbol 

/o 

indicate overlay structure 


/T 

specify transfer address as global symbol 
(/T:n form is acceptable) 

/u 

round PSECT 


// 

indefinite continuation 



5.2.2 CCL Command Comparison 

The following example illustrates the two methods available to the 

user for creating a source and assembly program, as well as linking 
and execution. 


RSTS/E Command String 

RUN $FORTRAN 
*MAIN=MAIN,SUBR/S 
*~Z 

READY 

RUN $MACRO 
*MACSUB=MACSUB 
ERRORS DETECTED:0 
FREE CORE: 1024 WORDS 
*~Z 


CCL 

FOR MAIN=MAIN,SUBR/S 

READY 

MACRO MACSUB=MACSUB 
ERRORS DETECTED:0 
FREE CORE: 1024 WORDS 
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READY 
RUN $LINK 

*PROG=MAIN,MACSUB/F 


READY 

LINK PROG=MAIN,MACSUB/F 


READY 
RUN PROG 



**Z 
READY 
RUN PROG 
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APPENDIX A 

FORTRAN DATA REPRESENTATION 


A.1 INTEGER FORMAT 

Sign 

0 - ♦ 

- _ Binary number 



Integers are stored in a two's complement representation. If the /I4 
(/T) compiler option (see Section 1.2.1) is used, an integer is 
assigned two words, although only the low-order word (for example, the 
word having the lower address) is significant. By default, integers 
will be assigned to a single storage word. Explicit length integer 
specifications (INTEGERS and INTEGERM) will always take precedence 
over the setting of the /I4 (/T) option. Integer constants must lie 
in the range -3276^Sto +32767. For example: 


+22 = 000026(octal) 
-7 = 177771(octal) 




A.2 FLOATING-POINT FORMATS 

The exponent for both two-word and four-word floating-point formats is 
stored in excess 128 (200(octal)) notation. Binary exponents from 

-128 to +127 are represented by the binary equivalents of 0 through 
255 (0 through 377 (octal)). Fractions are represented in 

sign-magnitude notation with the binary radix point to the left. 
Numbers are assumed to be normalized and. therefore. the most 
significant bit is not stored because of redundancy (this is called 
hidden bit normalization). This bit is assumed to be a 1 unless the 
exponent is 0 (corresponding to 2-128) . in which case it is assumed to 
be 0. The value 0 is represented by two or four words of zeros. For 
example. +1.0 would be represented by: 

40200 

0 

in the two-word format, or: 

40200 

0 

0 

0 
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in the four-word format, -5 would be: 

140640 

0 

in the two-word format, or: 

140640 

0 

0 

0 

in the four-word format. 


A. 2.1 REAL Format (Two-Word Floating Point) 


Sign 


0 ♦ 

Binary excess 

High-order 

1 — 

128 exponent 

mantissa 


15 14 7 6 0 


wor^ 2: 


Low-order mantissa 


15 


Since the high-order bit of the mantissa is always 1, it is discarded, 
giving an effective precision of 24 bits (or approximately 7 digits of 
accuracy). The magnitude range lies between approximately .29 X 10-38 
and .17 X 1039. 


A.2.2 DOUBLE PRECISION Format (Four-Word Floating Point) 


word 1 


word 2 


word 3 


word 4 

15 0 

The effective precision is 56 bits (or approximately 17 decimal digits 
of accuracy). The magnitude range lies between .29 X 10-38 and .17 X 
1039. 


Sign 


0 ♦ 

Binary excess 

High-order 

1 :.- 

128 exponent 

mantissa 


15 14 7 6 0 


Low-order mantissa 

15 0 


Lower-order mantissa 

15 0 


Lowest-order mantissa 
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A.2.3 COMPLEX Format 


word 1: 


word 2: 


word 3: 


word 4: 


Sign 


0 4 

1 - 

Binary excess 

128 exponent 

High-order 

mantissa 

15 14 7 6 

0 

Low-order mantissa 

15 



0 

Sign 




0 ♦ 

Binary excess 

High-order 


1 - 

128 exponent 

mantissa 


15 14 7 6 

0 

Low-order mantissa 

15 



0 


Real 

Part 


Imaginary 

Part 


A.3 LOGICAL*! FORMAT 


Data item 

7 0 

Any non-zero value is considered to have a logical value of .TRUE. 
The range of numbers from +127 to -128 can be represented in L0GICAL*1 
format. LOGICAL*! array elements are stored in adjacent bytes. 


A.4 HOLLERITH FORMAT 
word 1: 


word 2: 


word 3 


char 2 

char 1 

15 


8 7 

0 

char 4 

char 3 

15 


8 7 

0 

blank 40 (octal) 

char n (n^255) 

15 


8 7 

0 


Hollerith constants are stored internally, one character per byte. 
Hollerith values are padded on the right with blanks to fill the 
associated data item, if necessary. 


A.5 LOGICAL FORMAT 
True: word 1: 


word 2: 


False: word 1: 


word 2: 


unspecified 

377 

15 

8 7 


0 

unspecified 

15 




0 

unspecified 

000 

15 

8 7 


0 

unspecified 


15 


Logical (LOGICALM) data items are treated as L0GICAL*1 values for use 
with arithmetic and logical operators. Any non-zero value in the low 
order byte is considered to have a logical value of true in logical 
expressions. 
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RADIX-50 FORMAT 

-50 character set 

Character 

Octal 

ASCII 

Equivalent 

space 

40 

A-Z 

101-132 

$ 

44 

. 

56 

unused 

0-9 

60-71 



Radix-50 

Equivalent 


0 

1-32 

33 

34 

35 

36-47 


The following table provides a convenient means of translating between 
the ASCII character set and its Radix-50 equivalents. For example, 
given the ASCII string X2B, the Radix-50 equivalent with (arithmetic 
is performed in octal) is as follows: 


X =113000 
2 =002400 
B=000002 
X2B=115402 


Table A-l 

ASCII/Radix-50 Equivalents 


Single Character 
or 

First Character 

Second 

Character 

Third 

Character 

space 000000 

space 000000 

space 000000 

A 003100 

A 000050 

A 000001 

B 006200 

B 000120 

B 000002 

C 011300 

C 000170 

C 000003 

D 014400 

D 000240 

D 000004 

E 017500 

E 000310 

E 000005 

F 022600 

F 000360 

F 000006 

G 025700 

G 000430 

G 000007 

H 031000 

H 000500 

H 000010 

I 034100 

I 000550 

I 000011 

J 037200 

J 000620 

J 000012 

K 042300 

K 000670 

K 000013 

L 045400 

L 000740 

L 000014 

M 050500 

M 001010 

M 000015 

N 053600 

N 001060 

N 000016 

0 056700 

0 001130 

0 000017 

P 062000 

P 001200 

P 000020 

0 065100 

0 001250 

0 000021 

R 070200 

R 001320 

R 000022 

S 073300 

S 001370 

S 000023 

T 076400 

T 001440 

T 000024 

U 101500 

U 001510 

U 000025 

V 104600 

V 001560 

V 000026 

W 107700 

W 001630 

W 000027 

X 113000 

X 001700 

X 000030 

Y 116100 

Y 001750 

Y 000031 

Z 121200 

Z 002020 

Z 000032 

$ 124300 

$ 002070 

$ 000033 
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Table A-l (Cont.) 

ASCII/Radix-50 Equivalents 


Single Character 
or 

First Character 

Second 

Character 

Third 

Character 

. 127400 
unused 132500 

0 135600 

1 140700 

2 144000 

3 147100 

4 152200 

5 155300 

6 160400 

7 163500 

8 166600 

9 171700 

. 002140 
unused 002210 

0 002260 

1 002330 

2 002400 

3 002450 

4 002520 

5 002570 

6 002640 

7 002710 

8 002760 

9 003030 

. 000034 
unused 000035 

0 000036 

1 000037 

2 000040 

3 000041 

4 000042 

5 000043 

6 000044 

7 000045 

8 000046 

9 000047 
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APPENDIX B 
LIBRARY SUBROUTINES 





B.l LIBRARY SUBROUTINE SUMMARY 


In addition to the functions 
FORTRAN library contains the 
call in the same manner as a 


intrinsic to the FORTRAN IV 
following subroutines that 
user-written subroutine. 


system, 
the user 


the 

can 


ASSIGN 

OPEN 

CLOSE 

DATE 

IDATE 

EXIT 

USEREX 

RANDU, 
RAN 

SETERR 

ERRTST 

ERRSNS 

UNLOCK 


allows specification at run time of the file name or 
device and file name to be associated with a FORTRAN IV 
logical unit number. 

(RSTS/E only) causes the specified file to be opened and 
associated with a particular FORTRAN IV logical unit. 

closes the specified logical unit after writing any 
active buffers to the file. 


returns a nine-byte string containing the ASCII 
representation of the current date. 

returns three integer values representing the current 
month, day, and year. 

terminates the execution of a program and returns control 
to the executive. 

allows specification of a routine to be invoked as part 
of program termination. 


returns a pseudo random-real number with a uniform 
distribution between 0 and 1. 


allows the user to set a count specifying the number of 
times to ignore a certain error condition. 

allows the user program to monitor the types of errors 
detected during program execution. 

allows the user program to obtain information about the 
most recent error that has occurred during program 
execution. 

(RSTS/E only) unlocks the disk block currently held for 
update on the file open for shared access on the logical 
unit specified. 
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B.2 ASSIGN 

The CALL ASSIGN statement should not be used in conjunction with the 
CALL OPEN statement. In proper context, the ASSIGN subroutine allows 
the association of device and file name information with a logical 
unit number. The ASSIGN call, if present, must be executed before the 
logical unit is opened for I/O operations (by READ or WRITE) for 
sequential access files, or before the associated DEFINE FILE 
statement for random access files. The assignment remains in effect 
until the end of the program or until the file is closed by CALL CLOSE 
or the CLOSE statement, and a new CALL ASSIGN performed. The call to 
ASSIGN has the general form: 

CALL ASSIGN(n, name, icnt, mode, control, numbuf) 

CALL ASSIGN requires only the first argument all others are optional, 
and if omitted, are replaced by the default values as noted in the 
argument descriptions. However, if any argument is to be included, 
all arguments that precede it must also be included. 


NOTE 

Under RSTS/E, any project-programmer 
number or protection code information 
supplied to CALL ASSIGN is ignored. If 
the ability to supply such information 
is desired, CALL OPEN should be used. 


A description of the arguments to the ASSIGN routine follows: 


n logical unit number expressed as an integer constant or 

variable. 

name Hollerith or literal string containing any standard 

RT-11 or RSTS/E file specification. If the device is 
not specified, then the device remains unchanged from 
the default assignments. If a file name is not 
specified, the default names, as described in Section 
3.7, are used. The three options that can be included 
in the file specification are: 

/N specifies no carriage control translation. 

This option overrides the value of the 
• control 1 argument. 

/C specifies carriage control translation. This 

option overrides the value of the •control 1 
argument. 

/B:n specifies the number of buffers, n, to use 

for I/O operations. The single argument, n, 
should be of value 1 or 2. This option 
overrides the value of the 'numbuf* argument. 
Multibuffering is not supported under RSTS/E. 

If name is simply a device specification, the device is 
opened in a non-file-structured manner, and the device 
is treated in a non-file-structured manner. 
Indiscriminate use of this feature on directory devices 
such as disk or DECtape can be dangerous (for example, 
damage the directory structure). 
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icnt 


mode 


control 


numbuf 


specifies the number of characters in the string 
'name*. If 'icnt* is zero, the string 'name' is 
processed until the first blank or null character is 
encountered. if 'icnt* is negative, program execution 
is temporarily suspended. A prompt character (*) is 
sent to the terminal, and a file name specification, 
with the same form as •name* above, terminated by a 
carriage return, is accepted from the keyboard. 

specifies the method of opening the file on this unit. 
This argument can be one of the following: 

the file is read only. A fatal error occurs 
if a FORTRAN write is attempted on this unit. 
If the specified file does not exist 
run-time error 28 (OPEN FAILED FOR FILE) is 
reported. 

a new file of the specified name is created; 
this file does not become permanent until the 
associated logical unit is closed via the 
CALL CLOSE routine, the CLOSE statement or 
program termination. If execution is aborted 
by typing CTRL C, the file is not preserved. 

the file already exists. If the specified 
file does not exist, run-time error 28 (OPEN 
FAILED FOR FILE) is reported. 

the file is only to be used temporarily and 
is deleted when it is closed. 

If this argument is omitted, the default is determined 
by the first I/O operation performed on that unit. If 
a WRITE operation is the first I/O operation performed 
on that unit, ’NEW' is assumed. If a READ operation is 
first, 'OLD' is assumed. 

specifies whether carriage control translation is to 
occur. This argument can be one of the following: 

'NC' all characters are output exactly as 

specified. The record is preceded by a line 
feed character and followed by a carriage 
return character. 

CC' the character in column one of all output 

records is treated as a carriage control 
character. (See the PDP-11 FORTRAN Language 
Reference Manual .) 

If not specifically changed by the CALL ASSIGN 
subroutines, the terminal and line printer assume by 
default 'CC', and all other devices assume 'NC*. 

specifies the number of internal buffers to be used for 
the I/O operation. A value of 1 is appropriate under 
normal circumstances. If this argument is omitted, one 
internal buffer is used. Multibuffering is not 
supported under RSTS/E. 


' RDO' 


'NEW' 


'OLD' 


'SCR' 
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B. 3 OPEN (RSTS/E ONLY) 

The CALL OPEN statement should not be used in conjunction with the 
OPEN statement. The subroutine OPEN is an extension of the ASSIGN 
routine for RSTS/E. OPEN allows a specified file to be opened and 
associated with a particular FORTRAN logical unit. In the OPEN call, 
all arguments (except "n M and "name") are optional and will default if 
not specified. However, if any argument is to be included, all 
arguments that precede it must also be included. 

A description of the arguments to the OPEN subroutine follows: 

CALL OPEN (n, name, icnt, disp, control, numbuf, iotype, p, pn, prot, 
mode, cluster) 

where 

n is the integer specification of the logical unit to be 

associated with the file. 

name is a variable array, or quoted string, whose contents 

specify the name (and possibly the project-programmer 
number and protection code) of the file to be opened. 

icnt is an integer value that controls the interpretation of 

the 'name' argument. If 'icnt' is positive, it 

specifies the number of characters to be taken from the 
'name* argument as the file name string. If 'icnt* is 
zero, 'name' is scanned until the first blank or null 
character is encountered. If a negative value is given 
for 'icnt', program execution is temporarily suspended, 
a prompt character (*) is sent to the terminal, and a 
filename specification, terminated by a carriage 

return, is accepted from the keyboard. 

disp is a string specification of the disposition of the 

file on this unit. This argument can be one of the 

following: 

1 RDO' the file is read only. A fatal error occurs if a 
FORTRAN write is attempted on this unit. If the 

specified file does not exist, run-time error 28 

(OPEN FAILED FOR FILE) is reported. 

'NEW 1 a new file of the specified name is created; 
this file does not become permanent until the 
associated logical unit is closed via the CALL 
CLOSE routine, the CLOSE statement or program 
termination. If execution is aborted by typing 
CTRL^C, the file is not preserved. 

'OLD' the file is assumed to exist. If the file is not 
found in the specified directory, or is protected 
against access by the user, a fatal error 
results. 

'SCR 1 the file is only to be used temporarily and will 
be deleted when it is closed. 

If this argument is not given, the default is set to 
'NEW*. 
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control 


numbuf 


iotype 


P 


pn 


prot 


mode 


cluster 


is a string argument-specifies whether carriage control 
translation is to occur. This argument can be one of 
the following: 

•NC' all characters are output exactly as specified. 
The record is preceded by a line feed character 
and followed by a carriage return character. 

'CC 1 the character in column one of all output records 
is treated as a carriage control character. (See 
the PDP-11 FORTRAN Language Reference Manual .) 

If not specifically changed by the OPEN routine, the 
user's terminal and the line printer assume by default 
'CC 1 , and all other devices assume 'NC 1 . 

retained for argument list compatibility with the RT-11 
ASSIGN system subroutine; has no function under RSTS/E 
and should be omitted or given the value 1. 

is a string argument that specifies the range of 
input/output operations to be performed on a unit. 
This argument can be one of the following: 

•FOR' the unit is to be opened for formatted 
input/output. 

® UNF' the unit is to be opened for unformatted 
input/output. 

'RAN 1 the unit is to be opened for random access 
input/output. 

If this argument is not specified, it defaults to 
1 FOR *. 


is an integer value giving the default project code to 
be used (in conjunction with the "pn M argument) if no 
project-programmer number specification is found in 
"name". 

is an integer value giving the default programmer code 
to be assumed if no project-programmer specification 
appears in "name". 

is an integer value specifying the protection code to 
be assigned by default if no protection code indication 
occurs in "name". This argument takes effect only on 
output files. 

is an integer specification of the RSTS/E mode to be 
used on opening the file (refer to the RSTS/E 

Programming _ Manual for device-specific mode 

information). 

is an integer specification of the cluster size to be 
assigned to the file to be opened. This argument only 
takes effect on output files (for example, files with 
the 'NEW or 'SCR* attribute). 
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B.4 CLOSE 

The user has the option of the CALL CLOSE routine and the CLOSE 
statement. The CALL CLOSE routine is a subset of the CLOSE statement 
(see the PDP-11 FORTRAN Language Reference Manual ). CLOSE explicitly 
closes any file open on the specified logical unit. If the file was 
open for output, any partially filled buffers are written to the file 
before closing it. After the execution of CALL CLOSE, any buffers 
associated with the logical unit are freed for reuse and all 
information supplied in any previous CALL ASSIGN for the logical unit 
is deleted. The logical unit is thus free to be associated with 
another file. 

An implicit CLOSE operation is performed on all open logical units 
when a program terminates (due to a fatal error condition, or the 
execution of STOP or CALL EXIT). 

The format of the call is: 

CALL CLOSE (ilun) 


where 


ilun is an integer constant, variable, array element, 
expression specifying the logical unit to be closed. 


B.5 DATE 

The DATE subroutine can be used in a FORTRAN program to obtain the 

current date as set within the system. The DATE subroutine is called 
as follows: 

CALL DATE(array) 

where array is a predefined array able to contain a nine-byte string. 

The array specification in the call can be expressed as the array name 
alone: 

CALL DATE(a) 

in which the first three elements of the real array a are used to hold 
the date string, or: 

CALL DATE(a(i)) 

which causes the nine-byte string to begin at the i(th) element of the 
array a. 

The date is returned as a 9-byte (nine-character) string in the form: 
dd-mmm-yy 


dd is the two-digit date (with leading zero if necessary) 

mmm is the three-letter month specification (all capital 
letters) 

yy is the last two digits of the year 
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For example: 

25-DEC-76 

The 9-byte array is set to blanks, if the system date has not been 
set. 


B.6 IDATE 

IDATE returns three integer values representing the current month, 
day, and year. The call has the form: 

CALL IDATE(i,j,k) 

If the current date were March 19, 1976, the values of the integer 
variables upon return would be: 

i = 3 
j = 19 
k = 76 

i is returned as zero, if the system date has not been set. 


B. 7 EXIT 

A call to the EXIT subroutine, in the form: 

CALL EXIT 

is equivalent to the STOP statement except that no STOP message 
appears on the user's terminal. Use of the EXIT statement causes 
program termination, the closing of all files, and return to the 
monitor. 


B.8 USEREX 

USEREX is a subroutine that allows specification of a routine to which 
control is passed as part of program termination. This allows 
disabling of interrupts enabled in non-FORTRAN routines. If these 
interrupts are not disabled prior to program exit, the integrity of 
the operating system cannot be assured. The form of the subroutine 
call is: 


where 


CALL USEREX (name) 


'name' is the routine to which control is passed and should 
appear in an EXTERNAL statement somewhere in the program unit. 
Control is transferred with a JMP instruction after all 


procedures required for FORTRAN IV. program termination have been 
completed. The transfer of control takes place instead of the 
normal return to the monitor. Thus, if the user desires to have 
control passed back to the monitor, the routine specified by 
USEREX must perform the proper exit procedures. 


B-7 



LIBRARY SUBROUTINES 


B.9 RANDU,RAN 

The random number generator can be called as a subroutine, RANDU, or 
as an intrinsic function, RAN. The subroutine call is performed as 
follows: 

CALL RANDU ( i (1) ,i (2) ,x) 

where 

i(l) and i(2) are previously defined integer variables and x is 
the real variable name, in which a random number between 0 and 1 
is returned. i(l) and i(2) should be initially set to 0. i(l) 
and i(2) are updated to a new generator base during each call. 
Resetting i(1) and i(2) to 0 repeats the random number sequence. 
The values of i(1) and i(2) have a special form; only 0 or saved 
values of i(1) and i{2) should be stored in these variables. 

The random number generator can also be called as a function, as 
fo1lows: 


x=RAN(i(1) . i (2)) 


B.10 SETERR 

SETERR allows the user to specify the disposition of certain OTS 
detected error conditions. Only OTS error diagnostics 1-16 should 
be changed from their default error classification (see Section C.2). 
If errors 0 or 20 - 69 are changed from the default classification of 
FATAL, execution continues but in an undetermined state. The form of 
the call is: 

CALL SETERR (number,ncount) 

where 


'number' is an integer variable or expression specifying the OTS 
error number (see Section C.2), and 'ncount' is a LOGICAL*l 
variable or expression with one of the following values: 

Value Meaning 

0 Ignore all occurrences after logqing them on the user 

terminal. 

1 First occurrence of the error will be fatal. 


2-127 The nth occurrence of the error will be fatal; the 

first n-1 occurrences will be logged on the user 
terminal. 

128-255 Ignore all occurrences of the error. 


B.ll ERRTST 

ERRTST allows the user program to monitor the types of errors detected 
during program execution. The general form of the call is: 

CALL ERRTST (ierr,ires) 
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where 


ierr is an INTEGERS quantity specifying 
which the test is to be done. 

ires is an INTEGER*2 variable or array 
receive the status of the error. 



ires=l if an error has occurred 
ires=2 if an error has not occurred 


A call to ERRTST will reset the flag governing the specified error 
condition. 


B.12 ERRSNS 

ERRSNS allows specifying from zero to two arguments. When ERRSNS is 
called with zero arguments, previous error data is cleared, thus 
allowing testing for errors in certain program sections. The general 
call is: 

CALL ERRSNS (ires,iunit) 

where 


ires is an INTEGERS variable or array element into which the 
numeric code for the most recent error will be stored. A zero 
will be stored if there is no error. 

iunit is an INTEGER*2 variable or array element into that the 
logical unit number of input/output errors will be stored, if the 
most recent error was input/output related. 


B-9 













APPENDIX C 


FORTRAN IV ERROR DIAGNOSTICS 


C•1 COMPILER ERROR DIAGNOSTICS 

The FORTRAN IV Compiler, while reading and processing the FORTRAN 
source program, can detect syntax errors (or errors in general form) 
such as unmatched parentheses, illegal characters, unrecognizable key 
words, and missing or illegal statement parameters. 

The error diagnostics are generally clear in specifying the exact 
nature of the error. In most cases, a check of the general form of 
the statement in question as described in the PDP-11 FORTRAN Lanquaqe 
Reference Manual will help determine the location of the error. 2 

Some of the most common causes of syntax errors, however, are typing 
mistakes. A typing mistake can sometimes cause the compiler to give 
very misleading error diagnostics. The user should note, and take 
care to avoid, the following common typing mistakes: 


• Missing commas or parentheses in a complicated 
FORMAT statement. 


expression or 


• Misspelling of particular instances of variable names. If the 
compiler does not detect this error (it usually cannot), 
execution may also be affected. 

• An inadvertent line continuation signal on the line following 
the statement in error. 

• If the user terminal does not clearly differentiate between 0 
(zero) and the letter 0, what appear to be identical spellings 
of variable names may not appear so to the compiler, and what 

appears to be a constant expression may not appear so to the 
compiler. 


If any error or warning conditions are detected in a compilation, 
following message is printed on the initiating terminal: 

7F0RTRAN-I-[name]Errors:n,Warnings:m 

where: 


the 


[name] is the six-character name of the program unit being 
compiled. .MAIN. is the default name of the main 
program if no PROGRAM statement is used. The default 
name for BLOCK program units is .DATA.. 

n represents the number of error-class messages (for 

example, those messages that cause the statement in 
question to be deleted) . 
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m represents the number of warning-class messages (for 

example, those messages indicating conditions that can 
be ignored or corrected, such as missing END statements 
or questionable programming practices). Note that some 
warning conditions will only be detected if the /W 
switch is specified (see Section C.I.3.). 


The next four sections describe the initial phase and secondary phase 
error diagnostics and the fatal FORTRAN IV Compiler error diagnostics. 


The following is an example of a FORTRAN IV program with diagnostics 
issued by the compiler. 


FORTRAN IV 


V02 ♦ 5 Thu 01 - Haw-80 00M1J51 


PAGE 001 


0001 

0002 

0003 

0004 

0005 10 

000A 10 
***** h 
000 / 

0008 


DOUBLE PRECISION DBLE DBLE2 
DATA INT/100/ DBLE2/500./ 
DBLE2 = INT/2 + 5. + DBLE 
WRITE? <6?10) DBLE?DBLE 
FORMAT<1X?2F12»A) 

STOP 


INTEGER INT 
END 




FORTRAN IV 


Diagnostics for Program Unit *MAIN» 


In 

1 ine 

0004? 

Error l 

In 

1 ine 

0008? 

Ua rninn J 

In 

l ine 

0009? 

Warninn J 


Syntax error 

Variable *DBLEDB* name exceeds A characters 
Non-standard statement orderinn 



FORTRAN IV Storage Mae for Program Unit ♦MAIN# 


Local 

Variables? .PSECT $DATA? 

Size = 000024 ( 

10* words) 


Name 

DBLE 

INT 

Twee Offset 

R*4 000020 

1*2 000002 

Name 

DBLEDB 

Type Offset 

R*8 000010 

Name Twee 

DBLE2 R*4 

Offset 

000004 

C.1.1 

Errors Reported 

by the 

Initial Phase of 

the Compiler 



Some of the easily recognizable FORTRAN syntax errors are detected by 
the initial phase of the compiler. Errors that cause the statement in 
question to be aborted are tabulated in the ERROR count, whereas those 
that are correctable by the compiler are counted as WARNINGS. 
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The error diagnostics are printed after the source statement to which 
they apply (the L error diagnostic is an exception). The general form 
of the diagnostic is as follows: 

***** c 

Where 

c is a code letter whose meaning is described below. 





INITIAL PHASE ERROR DIAGNOSTICS 


Code Letter 


Description 


B 


C 


Columns 1-5 of a continuation line are not blank. 
Columns 1-5 of a continuation line must be blank 
except for a possible 'D* in column 1; the 
columns are ignored (WARNING). 


Illegal continuation. Comments cannot be 
continued and the first line of any program unit 
cannot be a continuation line. If a line consists 
only of a carriage return/line feed combination, 
then it is considered to be a blank line. If it 
has a label field, then it must have a statement 
field. The line is ignored (WARNING). 


E 

Missing 

END statement. An 

END 

statement 

is 


supplied 

by the 

compiler 

if 

end-of-file 

is 


encountered (WARNING). 




H 

Hollerith 

string 

or quoted 

literal string 

i s 


longer than 255 

characters 

or 

longer than 

the 


remainder 

of the 

statement; 

the 

statement 

is 


ignored. 


I Non-FORTRAN character used. The line contains a 

character that is not in the FORTRAN character set 
and is not used in a Hollerith string or comment 
line. The character is ignored (WARNING). 


K Illegal statement label definition. Illegal 

(non-numeric) character in statement label; the 
illegal statement label is ignored (WARNING). 

L Line too long to print. There are more than 80 

characters (including spaces and tabs) in a line. 
Note: this diagnostic is issued preceding the 

line containing too many characters. The line is 
truncated to 80 characters (WARNING). 

M Multiply defined label. The label is ignored 

(WARNING). 

P Statement contains unbalanced parentheses. The 

statement is ignored. 

S Syntax error such as multiple equal signs, etc. 

The statement is not of the general FORTRAN 
statement form; the statement is ignored. 

U Statement could not be identified as a legal 

FORTRAN statement. The statement is ignored. 
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C.1.2 Errors Reported by Secondary Phases of the Compiler 

Those compiler error diagnostics not reported by the initial phase of 
the compiler appear immediately after the source listing and 
immediately before the storage map. Since the diagnostics appear 
after the entire source program has been listed, they must designate 
the statement to which they apply by using the internal sequence 
numbers assigned by the compiler. 

The general form of the diagnostic is: 

Error: 

IN LINE nnnn, text 

Warning: 


where 

nnnn is the internal sequence number of the statement in 
question, and text is a short description of the error. 

Below, listed alphabetically, are the error diagnostics. Included 
w ith^ each diagnostic is a brief explanation. Refer to the PDP-11 
FORTRAN Language Reference Manual for information to help correct the 
error. 


The notation **** signifies that a particular variable name or 
statement label appears at that place in the text. 




SECONDARY PHASE ERROR DIAGNOSTICS 


ACCESS 3 'DIRECT' REQUIRES FORM 3 
FORM 3 'FORMATTED' has 
file. FORTRAN IV 
access input/output. 


UNFORMATTED' 

been specified for a direct access 
supports only unformatted direct 
Correct the program logic. 


ADJUSTABLE DIMENSIONS ILLEGAL FOR ARRAY **** 

An adjustable array was not a dummy argument in a 
subprogram or the adjustable dimensions were not 
integer dummy arguments in tjie subprogram. A dimension 
of one is used. Correct the source program. 

ARRAY EXCEEDS MAXIMUM SIZE or 

ARRAY **** EXCEEDS MAXIMUM SIZE 

The storage required for a single array or for all 
arrays in total is more than is physically addressable 
(>32K words). This particular error may reference 
either the actual statement containing the array in 
question, or the first statement in the program unit. 
Correct the statement in error or reduce the space 
necessary for array storage. 

ARRAY **** HAS TOO MANY DIMENSIONS 

An array has more than seven dimensions. Correct the 
program. The legal range for dimensions is one to 
seven. 


**** ATTEMPTS TO EXTEND COMMON BLOCK BACKWARDS 

While attempting to EQUIVALENCE arrays in COMMON, an 
attempt was made to extend COMMON past the recognized 
beginning of COMMON storage. Correct the proqram 
logic. 
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COMMON BLOCK EXCEEDS MAXIMUM SIZE 

An attempt was made to allocate more space to COMMON 
than is physically addressable (>32K words). Correct 
the statement in error. 


CONSTANT 


IN FORMAT STATEMENT NOT IN RANGE 
An integer constant in a FORMAT statement 


the proper range. Check that all integer 
within the legal range (1 to 255). 


was not in 
constants are 


DANGLING OPERATOR 

An operator etc.) 

Example: I=J+. Correct the 


is missing an operand, 
statement in error. 


DEFECTIVE DOTTED KEYWORD 

A dotted relational operator was not recognized or 
there is a possible misuse of a decimal point. Check 
the format for relational operators; correct the 
statement in error. 


DEFINE FILE MODE MUST BE 'U' 

The third argument inside parentheses in a DEFINE FILE 
statement is not 'U' (unformatted). Correct the mode 
specification. 

DO TERMINATOR **** PRECEDES DO STATEMENT 

The statement specified as the terminator of a DO loop 
did not appear after the DO statement. Correct the 
program logic. 

EXPECTING LEFT PARENTHESIS AFTER **** 

An array name or function name reference is not 
followed by a left parenthesis. Correct the statement 
so that the left parenthesis is included. 

EXPECTING LEFT PARENTHESIS AFTER SUBPROGRAM NAME 

A SUBROUTINE or FUNCTION name occurs without an 
argument list specification. Check for a typographical 
error, or the use of the same name for a local variable 
and a subprogram. 


EXTRA CHARACTERS AT END OF STATEMENT 

All the necessary information for a syntactically 
correct FORTRAN statement has been found on this line, 
but more information exists. Check that a comma is not 
missing from the line or that an unintentional 
continuation signal does not appear on the next line. 

FLOATING CONSTANT NOT IN RANGE 

A floating constant in an expression is too close to 
zero to be represented in the internal format. Use 
zero if possible. 


ILLEGAL ADJACENT OPERATOR 

Two operators (*,/, logical operators, etc.) are 
illegally placed next to each other. Example: I/*J. 
Correct the statement in error. 


ILLEGAL CHARACTERS IN EXPRESSION 

An illegal character has been found in an expression. 
Check for a typographical error in the statement. 
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ILLEGAL 

DO TERMINATOR ORDERING AT LABEL **** 

DO loops are nested improperly. Verify that the range 
of each DO loop lies completely within the range of the 
next outer loop. 

ILLEGAL 

DO TERMINATOR STATEMENT **** 

A DO statement terminator was not valid. Verify that 
the DO statement terminator is not a GOTO, arithmetic 
IF, RETURN, another DO statement, or logical IF 
containing one of these statements. 

ILLEGAL 

ELEMENT IN I/O LIST 

An item, expression, or implied DO specifier in an I/O 
list is of illegal syntax. Correct the I/O list. 

ILLEGAL 

ENCODE/DECODE FORMAT SPECIFIER 

The format specification (second argument inside 
parentheses) in an ENCODE/DECODE statement is not a 
FORMAT statement label or array name. Correct the 
FORMAT specification. 

ILLEGAL 

ENCODE/DECODE LENGTH EXPRESSION 

The length specification (first argument inside 
parentheses) in an ENCODE or DECODE statement is not an 
integer expression. Correct the length expression. 

ILLEGAL 

ENCODE/DECODE TARGET 

The third argument inside parentheses in an ENCODE or 
DECODE statement is not the name of an array, array 
element, or variable. Correct the target 
specification. 

ILLEGAL 

INITIAL VALUE EXPRESSION IN DO STATEMENT 

A valid integer expression does not follow the equals 
sign in a DO statement. Correct the initial value 
expression. 

ILLEGAL 

STATEMENT IN BLOCK DATA 

An illegal statement was found in a BLOCK DATA 
subprogram. Verify that a FORMAT or executable 
statement does not occur in a BLOCK DATA subprogram. 

ILLEGAL 

STATEMENT ON LOGICAL IF 

The statement contained in a logical IF was not valid. 
Verify that the statement is not another logical IF or 
DO statement. 

ILLEGAL 

SUBSCRIPTS OR SUBPROGRAM ARGUMENT 

An illegal element occurred within a subscript list or 
argument list to a subprogram. Correct the erroneous 
statement. 

ILLEGAL 

TYPE FOR OPERATOR 

An illegal variable type has been used with an 
exponentiation or logical operator. Check that the 
variable type is valid for the operation in question. 

ILLEGAL 

USAGE OF OR MISSING LEFT PARENTHESIS 

A left parenthesis was required but not found, or a 
variable reference or constant is illegally followed by 
a left parenthesis. Correct the format of the 
statement in error. 
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INTEGER OVERFLOW 

An integer constant or expression value is outside the 
range -32767 to +32767. Correct the value of the 
integer constant or expression so that it falls within 
the legal range (-32767 to +32767). 

INVALID COMPLEX CONSTANT 

A complex constant has been improperly formed. Correct 
the statement in error. 

INVALID DIMENSIONS FOR ARRAY **** 

An attempt was made, while dimensioning an array, to 
explicitly specify zero as one of the dimensions. 
Verify that zero is not used as a dimension. 

INVALID END= OR ERR= KEYWORD 

The END= or ERR= specification in an input/output 
statement is incorrectly formatted. Check for a 
typographical error in the statement. 

INVALID EQUIVALENCE 

An illegal EQUIVALENCE, or EQUIVALENCE that is 
contradictory to a previous EQUIVALENCE, was 
encountered. Correct the program logic. 

INVALID FORMAT SPECIFIER 

A format specifier was illegally used. Correct the 
statement so that the format specifier is the label of 
a FORMAT statement or an array name. 

INVALID IMPLICIT RANGE SPECIFIER 

An illegal implicit range specifier, 
non-alphabetic specifier, or specifier range 
alphabetic order) was encountered. Verify 
implicit range specifier indicates 
characters in alphabetic order. 

INVALID LOGICAL UNIT 

A logical unit reference was incorrect. Correct the 
logical unit reference so that it is an integer 
variable or constant in the range 1 to 99. 

INVALID OCTAL CONSTANT 

An octal constant is too large or contains a digit 
other than 0-7. Correct the constant so that it 
contains only legal digits that fall within the octal 
range 0 to 177777. 


(i .e., 
in reverse 
that the 
alphabetic 


INVALID OPTIONAL LENGTH SPECIFIER 

A data type declaration optional length specifier is 
illegal. For example, REALM and REALM are legal, but 

REAL*6 is not. Correct the statement so that it 
contains only a valid data type declaration length. 


INVALID RADIX-50 CONSTANT 

An illegal character was detected in a 
constant. Verify that only characters 
RADIX-50 character set are used in a RADIX-50 


RADIX-50 
from the 
constant. 


INVALID STATEMENT LABEL REFERENCE 

Reference has been made to a statement number that is 
of illegal construction. For example, GOTO 999999 is 
illegal since the statement number is too long. Check 
that the statement number consists of one to five 
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decimal digits placed in the first five columns of a 
statement's initial line and that it does not contain 
only zeroes. 

INVALID PROGRAM NAME 

A name used in a CALL statement or function reference 
is not valid. For example, use of an array name in a 
CALL statement routine name reference is illegal. 
Verify that the name specified in the statement is 
spelled correctly. 


INVALID TARGET FOR ASSIGNMENT 

The left side of an arithmetic assignment statement is 
not a variable name or array element reference. 
Correct the statement in error. 

INVALID TYPE SPECIFIER 

An unrecognizable data type was used. Verify that the 
data type indicated is valid. 

INVALID USAGE OF SUBROUTINE OR FUNCTION NAME 

A function name appeared in a DIMENSION, COMMON, DATA, 
or EQUIVALENCE or data type declaration statement. 
Correct the statement in error. 


INVALID VARIABLE NAME 

A variable name contains an 


illegal character, 


i s 


missing, 
character. 


or does not begin with an alphabetic 
Correct the statement in error. 


LABEL ON DECLARATIVE STATEMENT 

A label was found on a declarative statement. Correct 
the program so that declarative statements do not have 
labels. 


MISSING ASSIGNMENT OPERATOR 

The first operator seen in an arithmetic assignment 
statement was not an equal sign (=). For example, 
I+J =K. Correct the arithmetic assignment statement in 
error. 

MISSING COMMA 

The comma delimiter was expected but not found. 
Correct the format of the statement in error. 

MODE OF EXPRESSION MUST BE INTEGER 

An integer variable or expression is required, or, for 
example, in the initial, terminal, and incremental 
parameter of a DO statement. 

MISSING COMMA IN OPEN OR CLOSE KEYWORD LIST 

Two options in an OPEN/CLOSE keyword list are not 
separated by a comma. Check for a typographical error 
in the statement. 

MISSING DELIMITER IN EXPRESSION 

Two operands have been placed next to each other in an 
expression with no operator between them. Correct the 
statement in error. 
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MISSING 


MISSING 


MISSING 


MISSING 


MISSING 


MISSING 


MISSING 


MISSING 


MISSING 


MISSING 


MISSING 


EXPRESSION 

A required expression (for example, the limit 
expression in a DO statement) was omitted. Correct the 
syntax of the statement. 

LABEL 

A statement label was expected but not found. For 
example, ASSIGN J TO I is illegal; a valid statement 
label reference should precede , T0* but does not. 
Verify that the reference preceding 'TO 1 is a valid 
statement label of an executable statement in the same 
program unit as the A6SIGN statement. 

LABEL LIST AFTER COMMA 

In an assigned GOTO statement, the integer variable was 
followed by a comma but no list was found. Check for a 
typographical error in the statement. 

LEFT PARENTHESIS AFTER OPEN OR CLOSE 

An OPEN or CLOSE statement does not have a left 
parenthesis preceding the keyword list. Check for a 
typographical error in the statement. 

OPERATOR AFTER EXPRESSION 

An expression was not terminated by a comma, right 
parenthesis, or other operator. Check for a 

typographical error in the statement. 

QUOTATION MARK 

In a FIND statement, the logical unit number and record 
number were not separated by a single quotation mark. 
Correct the statement in error. 

RIGHT PARENTHESIS 

A right parenthesis was expected but not found. For 
example, READ(5,100,) is illegal; the first nonblank 
character after the format reference should be a right 
parenthesis but is not. Correct the format of the 
statement in error. 

•TO' IN ASSIGN STATEMENT 

The keyword * TO' does not follow the label 
specification in an ASSIGN statement. Check for a 
typographical error in the statement. 

VALUE FOR KEYWORD IN OPEN OR CLOSE STATEMENT 

A keyword requiring a value was specified without a 
value. Correct the syntax of the statement. 

VARIABLE 

A variable was expected but not found. For example, 
ASSIGN 100 TO 1 is illegal; a variable name should 
follow the 1 TO 1 but does not. Verify that the 
reference following 'TO * is a valid integer variable 
name. 

VARIABLE OR CONSTANT 

An operand (variable or constant) was expected but a 
delimiter (comma, parenthesis, etc.) was found. For 
example, WRITEO is illegal; a unit number should 
follow the open parenthesis, but a delimiter (close 
parenthesis) is encountered instead. Correct the 
format of the statement in error. 
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MODE OF EXPRESSION MUST BE INTEGER 

An integer variable or expression is required, as, for 
example, in the initial, terminal, and incremental 
parameters of a DO statement. 

MODES OF VARIABLE **** AND DATA ITEM DIFFER 

The data type of each variable and its associated data 
list item must agree in a DATA statement. Correct the 
format of the items in the DATA statement. 

MULTIPLE DECLARATION FOR VARIABLE **** 

A variable appeared in more than one data type 
declaration statement or dimensioning statement. 
Subsequent declarations are ignored. Correct the 
program logic. 

MULTIPLE DECLARATION OF OPEN OR CLOSE KEYWORD 

A keyword has been specified more than once in a single 
OPEN or CLOSE statement. Remove the incorrect or 
duplicate reference to the keyword. 

OPEN OR CLOSE KEYWORD VALUE MUST BE QUOTED STRING 

A keyword that requires a quoted-string value was given 
an expression value. Correct the syntax of the 
statement. 

OPEN OR CLOSE STATEMENT REQUIRES UNIT= SPECIFIER 

No UNIT= specification is present in the OPEN or CLOSE 
statement in question to select the desired logical 
unit. Add the UNIT= specification to the s^Dtement. 

PARENTHESES NESTED TOO DEEPLY 

Group repeats in a FORMAT statement have been nested 
too deeply. Limit group repeats to eight levels of 
nesting. 

PROGRAM OR BLOCK DATA STATEMENT MUST BE FIRST 

If either a program name statement or block data name 
statement is used, it should always be the first 
statement. 

P-SCALE FACTOR NOT IN RANGE -127 TO +127 

P-scale factors were not in the range -127 to +127. 

Correct the statement in error. 

REFERENCE TO INCORRECT TYPE OF LABEL **** 

A statement label reference that should be a label on a 
FORMAT statement is not such a label, or a statement 
label reference that should be a label on an executable 
statement is not such a label. Correct the program 
logic. 

REFERENCE TO UNDEFINED STATEMENT LABEL 

A reference has been made to a statement label that has 
not been defined anywhere in the program unit. Correct 
the program logic. 

STATEMENT MUST BE UNLABELED 

A DATA, SUBROUTINE, FUNCTION, BLOCK DATA, arithmetic 
statement function definition, or declarative statement 
was labeled. Correct the statement in error. 
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STATEMENT TOO COMPLEX 

An arithmetic statement function has more than ten 
dummy arguments or the statement is too long to 
compile. Verify that the number of dummy arguments in 
an arithmetic statement does not exceed ten; break 
long statements into two or more smaller statements. 

SUBROUTINE OR FUNCTION STATEMENT MUST BE FIRST 

A SUBROUTINE, FUNCTION, or BLOCK DATA statement is not 
the first statement in a program unit. Ensure that, if 

present, these statements appear first in a proqram 
unit. 

SUBSCRIPT OF ARRAY **** NOT IN RANGE 

Array subscripts that are constants 
expressions are found to be outside the 
array's dimensions. The operation in 
aborted. Correct the program. 

SYNTAX ERROR 

The general form of the statement was not formatted 
correctly. Check the general format of the statement 
in error and correct the program. 

SYNTAX ERROR IN INTEGER OR FLOATING CONSTANT 

An integer or floating constant has been incorrectly 
formed. For example, 1.23.4 is an illegal floating 
constant because it contains two decimal points. 
Correct the format of the integer or floating constant 
in question. 

SYNTAX ERROR IN LABEL LIST 

The list of labels for an assigned or computed GOTO 
statement is improperly formatted, or contains a 
reference to an entity that is not the label on an 
executable statement. Correct the format of the list. 

TARGET MUST BE ARRAY 

An array element was referenced in an ENCORE or DECODE 
statement without having been previously dimensioned. 

UNARY OPERATOR HAS TOO MANY OPERANDS 

Two operands have been specified for an operator (such 
as .NOT.) that accepts only one operand. Check for a 
typographical error in the statement. 

UNLABELED FORMAT STATEMENT 

A FORMAT statement was not labeled. Correct the FORMAT 
statement in error by assigning it the proper label. 

UNRECOGNIZED KEYWORD IN OPEN OR CLOSE STATEMENT 

The OPEN or CLOSE statement in question contains a 
keyword that is not recognized by the compiler. Check 
for a misspelling or typographical error in the 
keywords used in the statement. 

UNRECOGNIZED VALUE FOR OPEN OR CLOSE KEYWORD 

A keyword which requires a quoted-string value was 
specified with an unrecognized value string. For 
example, DISPOSE = 'SURE 1 . Specify a valid value for 
the keyword. 


or constant 
bounds of the 
question is 
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USAGE OF VARIABLE **** INVALID 

An attempt was made to EXTERNAL a common variable, an 
array variable, or a dummy argument. Or an attempt was 
made to place in COMMON a dummy argument or external 
name. Correct the program logic. 

VALUE OF CONSTANT NOT IN RANGE 

An integer constant in the designated source program 
line exceeds the maximum unsigned value (65535). This 
error is also printed if an invalid dimension is 
specified for an array or if the exponent of a floating 
point constant is too large. Correct the statement in 
error. 

VARIABLE **** INVALID IN ADJUSTABLE DIMENSION 

A variable used as an adjustable dimension was not an 
integer dummy argument in the subprogram unit. Correct 
the program. 

WRONG NUMBER OF OPERANDS FOR BINARY OPERATOR 

An operator that requires two operands was specified 
with only one operand. Example: I=*J. Check for a 
typographical error in the statement. 

WRONG NUMBER OF SUBSCRIPTS FOR ARRAY **** 

An array reference does not have the same number of 
subscripts as specified when the array was dimensioned. 
Correct the statement in error. 


C.1.3 Warning Diagnostics 

Warning diagnostics report conditions that are not true error 

conditions, but that can be potentially dangerous at execution time, 
or can present compatibility problems with FORTRAN compilers running 
on other DEC operating systems. The warning diagnostics ate normally 
suppressed, but can be enabled by use of the /WARNINGS (/W) compiler 
option. The form and placement of the warning diagnostics are the 
same as those for the secondary phase error diagnostics (see Section 
C.1.2). A listing of the warning diagnostics follows. 

LOOP ENTRY AT LABEL **** 

A transfer of control occurs from outside the 
containing DO loop to the label indicated. This may 
indicate a programming error (if the loop does not have 
extended range). 

POSSIBLE MODIFICATION OF **** 

The indicated variable, which is used as a control 
parameter of a DO loop, may be modified within the body 
of that loop. 

NON-STANDARD STATEMENT ORDERING 

Although the FORTRAN IV Compiler has less restrictive 
statement-ordering requirements than those outlined in 
Chapter 7 of the PDP-11 FORTRAN Language Reference 
Manual , non-adherence to the stricter requirements may 
cause error conditions on other FORTRAN compilers. See 
Section 3.1 of this document. 

VARIABLE **** IS NOT WORD ALIGNED 

Placing a non-LOGICAL*l variable or array after a 
LOGICAL*! variable or array in COMMON, or equivalencing 
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non-LOGICAL*1 variables or arrays 
variables or arrays can cause this 
attempt to reference the variable at 
cause an error condition. 


to L0GICAL*1 
condition. An 
run time will 


VARIABLE **** NAME EXCEEDS SIX CHARACTERS 

A variable name of more than six characters was 
specified. The first six characters were used as the 
true variable name. Other FORTRAN compilers may treat 
this as an error condition. See Section 3.2 of this 
document. 


C.1.4 Fatal Compiler Error Diagnostics 


1 J" the fatal compiler error diagnostics. These 
diagnostics, which are sent directly to the initiating terminal, 
report hardware error conditions, conditions that may require 
rewriting of the source program, and compiler errors that may require 
attention from your Software Support Representative. 


7F0RTRAN-F-C0DE GENERATION STACK OVERFLOW 

A statement is too complex to process. Simplify 
complex statements. 

7F0RTRAN-F-C0MPILER FATAL ERROR, ANALYSIS FOLLOWS 

Some type of unexpected error was encountered by 
FORTRAN. Please send the console listing with a copy 
of your program (on some machine-readable medium) with 
an SPR report. 

7F0RTRAN-F-C0NSTANT SUBSCRIPT STACK OVERFLOW 

Too many constant subscripts have been employed in a 
statement. Simplify the statement. 

7F0RTRAN-F-DEVICE FULL 

There is insufficient room available on an output 
device specified to create the object or listing files 
required. Make more space available on the device by 
deleting unnecessary files and/or using the SQUEEZE 
command, or by redirecting the object on listing files 
to another device. 

?FORTRAN-F-DYNAMIC MEMORY OVERFLOW 

The program unit currently being compiled cannot be 
processed in the available memory space. Break the 
program unit in question into smaller subprograms, or 
recompile on a larger machine. 

7F0RTRAN-F-ERROR READING SOURCE FILE 

An unrecoverable error occurred while the compiler was 
attempting to read a source program input file. 
Correct the hardware problem and recompile. 

7FORTRAN-F-ERROR WRITING LISTING FILE 

An unrecoverable error occurred while the compiler was 
attempting to write the listing output file. Make sure 
that the output device is write-enabled, and that 
sufficient free space exists on the device for the 
output file. Recompile the program. 
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7FORTRAN-F-ERROR WRITING OBJECT FILE 

An unrecoverable error occurred while the compiler was 
attempting to write the object program output file. 
Make sure that the output device is write-enabled, and 
that sufficient free space exists on the device for the 
output file. Recompile the program. 

7F0RTRAN-F-FILE NOT FOUND 

An input file specified in the command string was not 
found. Correct the command string to refer to an 
existing file. 

?FORTRAN-F-HELP FILE NOT FOUND 

The FORTRAN IV help file, SY:FORTRA.HLP, was not 
present on the system device when the help switch was 
given to the compiler. No help information is 
available. Replace the file from the FORTRAN 
distribution medium if help information is required. 

7FORTRAN-F-ILLEGAL VALUE FOR /x SWITCH 

An illegal value has been specified for a compiler 
command string switch. Refer to Section 1.2.2 for 
compiler option information. 

?FORTRAN-F-ILLEGAL COMMAND 

The command string presented to the compiler was 
illegal in format. Correct the command string. 

7F0RTRAN-F-ILLEGAL DEVICE 

A device specification in a compiler command string was 
illegal. Correct the command string. 

7F0RTRAN-F-0PTIMIZER STACK OVERFLOW 

A statement is too complex to process, or too many 
common subexpressions occurred in one basic block of 
the source program. Simplify complex statements. 

7FORTRAN-F-SUBEXPRESS ION STACK OVERFLOW 

An attempt was made to compile a statement that could 

overflow the runtime stack at execution time. Simplify 
complex statements. 

7FORTRAN-F-UNKNOWN SWITCH-/X 

An illegal switch has been specified in the compiler 
command string. Refer to Section 1.2.2 for compiler 
option information. 


C.2 OBJECT-TIME SYSTEM ERROR DIAGNOSTICS 

The Object-Time System detects certain I/O, arithmetic, and system 
failure error conditions and reports them on the user terminal. These 
error diagnostics are printed in either a long or short form. 

The short form of the message appears as: 

7ERR nn 

where nn is a decimal error identification number. 
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The long form of the message appears as: 

?ERR nn text 

where nn is a decimal error identification number and text is a 
error description. 


short 


how the OTS Library was built. H 

c ;* ssea o£ OT ? conditions. Each orror condition 

is assigned to one of these classes. An error condition 
classification for the error codes 1-16 can be changed by using the 

0 yS r. h SU r fc T k SETERR - (See SeCtion B - 10) - Error codes^O and 
Al shou1 ^ not be changed from their FATAL classification 
indeterminable results will occur. The classifications are: 


or 


IGNORE 


the error is detected but no error message is sent 
to the terminal. Execution continues. 


WARNING 

the error 
execution 

message is 
continues. 

sent 

to 

the 

terminal 

and 

FATAL 

the error 
execution 

message is 
is termina 

sent 
ted. 

to 

the 

terminal 

and 

COUNT:n 

the error 

message is 

sent 

to 

the 

terminal 

and 


execution 

continues 

until 

the 

nth 

occurrence 

of 


as FATAL. 

If a program is terminated by a fatal error condition, active files 

Monitor* 1 J nl 1°^ * ^ Under K RT "“' when control is returned to the 
monitor, a CLOSE command can be given 


,- to close all active files. 

although some of the output to these active files may have been lost. 

type 


The OTS error diagnostics are listed below, along with the error 
and a brief explanation, where necessary. 


Error 

number 


Error 

type 


Message 


FATAL NON-FORTRAN ERROR CALL 

This message indicates an error condition (not 
internal to the FORTRAN run-time system) that may 
have been caused by one of four situations: 

(RT-11 only) 

1. A foreground job using SYSLIB completion 
routines was not allocated enough space (usinci 
the FRUN /N option) for the initial call to a 
completion routine. 

Check Chapter 4 (SYSTEM SUBROUTINE LIBRARY-) of 
the RT-11 Advanced Programmers Guide for the 
formula used to allocate more space. 


(continued on next page) 
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Error 

number 


1 


2 


3 


4 


Error 

type Message 


(RT-11 only) 

2. There was not sufficient memory for the background 
job. 

Make more memory available by unloading 
unnecessary handlers, deleting unwanted files, 
compressing the device. 

(RT-11 only) 

3. Under the single-job monitor, a SYSLIB completion 
routine interrupted another completion routine. 

Use the FB Monitor to allow more than one active 
completion routine. 


4. An assembly language module linked with a FORTRAN 
program issued a TRAP instruction with an error 
code that was not recognized by the FORTRAN error 
handler. 

Check the program logic. 

FATAL INTEGER OVERFLOW 

During an inteqer multiplication, division, or 

exponentiation operation, the value of the result 
exceeded 32767 in magnitude. 


Correct the program logic. 

FATAL INTEGER ZERO DIVIDE 

During an integer mode arithmetic operation, an 
attempt was made to divide by zero. 

Correct the program logic. 

FATAL COMPILER GENERATED ERROR 

An attempt was made to execute a FORTRAN statement 
in which the compiler had previously detected 
errors. 

Consult the program listing generated by the 
compiler (if one was requested) and correct the 
program for the errors detected at compile time. 

WARNING COMPUTED GOTO OUT OF RANGE 

The value of the integer variable or expression in 
a computed GOTO statement was less than one or 

greater than the number of statement label 
references in the list. 


Control is passed to the next executable 
statement. Examine the source program and correct 
the program logic. 

COUNT:3 INPUT CONVERSION ERROR 

During a formatted input operation, an illegal 
character was detected in an input field. 

(continued on next page) 
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Error Error 

number type 

Message 

6 IGNORE 

A value of zero is returned. Examine the input 
data and correct the invalid record. 

OUTPUT CONVERSION ERROR 

During a formatted output operation, the value of 
a particular number could not be output in the 
specified field length without loss of significant 
digits. 

The field is filled with asterisks (•*•). Correct 
the FORMAT statement to allow a greater field 
length. 

10 COUNT:3 

FLOATING OVERFLOW 

During an arithmetic operation, the absolute value 
of a floating-point expression exceeded the 

largest representable real number. 

A value of zero is returned. Correct the program 
logic. 

11 IGNORE 

FLOATING UNDERFLOW 

During an arithmetic operation, the absolute value 
of a floating-point expression became less than 
the smallest representable real number. 

The real number is replaced with a value of zero. 
Correct the program logic. 

12 FATAL 

FLOATING ZERO DIVIDE 

During a REAL mode arithmetic operation an attempt 
was made to divide by zero. 

The result of the operation is set to zero. 
Correct the program logic. 

13 COUNT:3 

SORT OF NEGATIVE NUMBER 

An attempt was made to take the square root of a 
negative number. 

The result is replaced by zero. Correct the 

program logic. 

14 FATAL 

UNDEFINED EXPONENTIATION OPERATION 

An attempt was made to perform an illegal 
exponentiation operation. (For example, -3.**.5 

is illegal because the result would be an 
imaginary number.) 

The result of the operation is set to zero. 
Correct the program logic. 

15 FATAL 

LOG OF ZERO OR NEGATIVE NUMBER 

An attempt was made to take the logarithm of a 
negative number or zero. 

The result of the operation is set to zero. 
Correct the program logic. 


(continued on next page) 
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Error Error 

number type 

Message 

16 FATAL 

WRONG NUMBER OF ARGUMENTS 

One of the FORTRAN Library functions, or one of 
the system subroutines that checks for such an 
occurrence, was called with an improper number of 
arguments. Check the format of the particular 
library function or system subroutine call, and 
correct the call. 


The following error diagnostics should not be changed from the FATAL 


classification by 

use of the system subroutine SETERR: 

20 FATAL 

INVALID LOGICAL UNIT NUMBER 

An illegal logical unit number was specified in an 
I/O statement. 

A logical unit number must be an integer within 
the range 1 to 99. Correct the statement in 

error. 

21 FATAL 

OUT OF AVAILABLE LOGICAL UNITS 

An attempt was made to have too many logical units 
simultaneously open for I/O. 

The maximum number of active logical units is six 
by default. To increase the maximum, recompile 

the main program using the /UNITS (/N) option to 
specify a larger number of available channels. 

22 FATAL 

INPUT RECORD TOO LONG 

During an input operation, a record was 
encountered that was longer than the maximum 
record length. 

23 FATAL 

The default maximum record length is 136 (decimal) 
bytes. To increase the maximum, recompile the 
main program using the /RECORDS (/R) option to 
specify a larger run-time record buffer (the legal 
range is 4 to 4095). 

HARDWARE I/O ERROR 

A hardware error was detected during an I/O 
operation. 

Check the volume for an off-line or write-locked 
condition, and retry the operation. Try another 
unit or drive if possible, or use another device. 

24 FATAL 

ATTEMPT TO READ/WRITE PAST END OF FILE 

During a sequential READ operation, an attempt was 
made to read beyond the last record of the file. 
During a random access READ, this message 
indicates that an attempt was made to reference a 
record number that was not within the bounds of 
the file. 


(continued on next page) 
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Error Error 

number type 

Message 

25 FATAL 

Use the "END=" parameter to detect this condition, 
or correct the program logic so that no request is 
made for a record outside the bounds of the file. 

During a WRITE operation, this message indicates 

that the space available for the file is 

insufficient. 

(RT-11 action) 

Try to make more file space available by deleting 
unnecessary files and compressing the device, or 
by using another device. 

(RSTS/E action) 

This condition is equivalent to the H N0 ROOM FOR 
USER ON DEVICE" system error. Make more space 
available by deleting files from the current 
account, or use another device. 

ATTEMPT TO READ AFTER WRITE 

An attempt was made to read after writing on a 
sequential file located on a file-structured 

device. 

26 FATAL 

A write operation must be followed by a REWIND or 
BACKSPACE before a read operation can be 
performed. Correct the program logic. 

RECURSIVE I/O NOT ALLOWED 

An expression in the I/O list of a WRITE statement 
caused initiation of another READ or WRITE 
operation. (This can happen if a FUNCTION that 
performs I/O is referenced within an expression in 
an I/O list.) 

27 FATAL 

Correct the program logic. 

ATTEMPT TO USE DEVICE NOT IN SYSTEM 

An attempt was made to access a device that was 
not legal for the system in use. 

Use the system ASSIGN command to create the 
required logical device name, or change the 
statement in error. 

28 FATAL 

OPEN FAILED FOR FILE 

The file specified was not found, there was no 
room on the device, or there was an attempt to 
create a file which already exists as a protected 
file. 

Verify that the file exists as specified. Delete 
unnecessary files from the device, or use another 
device. 

29 FATAL 

NO ROOM FOR DEVICE HANDLER (RT-11 only) 

There was not enough free memory left to 

accommodate a specific device handler. 


(continued on next page) 
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Error 

number 


30 


31 


32 


33 


34 


Error 

type Message 

Move the file to the system device or to a device 
whose handler is resident. Make more memory 
available by unloading unnecessary handlers, 
unloading the foreground job, using the single-job 
Monitor, or SET USR SWAP, if possible. 

FATAL NO ROOM FOR BUFFERS 

There was not enough free memory left to set up 
required I/O buffers. 

(RT-11 only) 

Reduce the number of logical units that are open 
simultaneously at the time of the error. If using 
double buffering or if another file is currently 
open, use single buffering. Make more memory 
available by unloading unnecessary handlers, 
unloading the foreground job, using the single-job 
Monitor, or SET USR SWAP, if possible. 

(RSTS/E only) 

Increase the space available for buffering by 
specifying the appropriate value for the /K switch 
to LINK, or reduce the number of logical units 
that are open simultaneously at the time of the 
error. 

FATAL NO AVAILABLE I/O CHANNEL 

More than the maximum number of channels available 
to the FORTRAN IV run-time system (15 for RT-11; 
14 for RSTS/E, exclusive of the terminal) were 
requested to be simultaneously opened for I/O. 

Close any logical units previously opened that 
need not be open at this time. 

FATAL FMTD-UNFMTD-RANDOM I/O TO SAME FILE 

An attempt was made to perform any combination of 
formatted, unformatted, or random access I/O to 
the same file. 

Correct the program logic. 

FATAL ATTEMPT TO READ PAST END OF RECORD 

An attempt was made to read a larger record than 
actually existed in a file. 

Check the construction of the data file; correct 
the program logic. 

FATAL UNFMTD I/O TO TT OR LP 

An attempt was made to perform an unformatted 
write operation on the terminal or line printer. 

Assign the logical unit in question to the 
appropriate device, using the ASSIGN system 
command, the OPEN statement, the ASSIGN or OPEN 
FORTRAN library routine, or (RT-11 only) the 
IASIGN SYSLIB routine. 

(continued on next page) 
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Error 

nunber 


35 


36 


37 


38 


39 


40 


41 


Error 

type Message 


FATAL 


FATAL 


FATAL 


FATAL 


FATAL 


FATAL 


FATAL 


ATTEMPT TO OUTPUT TO READ ONLY FILE 

An attempt was made to write on a file designated 

as read only. 

Check the OPEN statement, the ASSIGN or OPEN 
(RSTS/E only) system routine, or IASIGN SYSLIB 
function (RT-11 only) to ensure that the correct 
arguments were used. Check for a possible 

programming error. 

BAD FILE SPECIFICATION STRING 

The Hollerith or literal string specifying the 
device/file name OPEN statement, in the CALL 

ASSIGN or CALL OPEN system subroutine, could not 
be interpreted. 

Check the format of the OPEN statement, CALL 

ASSIGN, or CALL OPEN statement. 

RANDOM ACCESS READ/WRITE BEFORE DEFINE FILE 
A random access read or write operation was 

attempted before a DEFINE FILE was performed. 

Correct the program so that the DEFINE FILE 
operation is executed before any random-access 
read or write operation. 

RANDOM I/O NOT ALLOWED ON TT OR LP 

Random access I/O was illegally attempted on the 
terminal or line printer. 

Assign the logical unit in question to the 
appropriate device, using the ASSIGN keyboard 
monitor command, OPEN statement, the ASSIGN or 
OPEN FORTRAN library routine, or (RT-11 only) the 
IASIGN SYSLIB routine. 


RECORD LARGER THAN RECORD SIZE IN DEFINE FILE 
A record was encountered that was larger than that 
specified in the DEFINE FILE statement for a 
random access file. 

Shorten the I/O list or redefine the file 
specifying larger records. 


REQUEST FOR A BLOCK LARGER THAN 65535 

An attempt was made to reference an absolute disk 

block address greater than 65535. 

Correct the program logic. 

DEFINE FILE ATTEMPTED ON AN OPEN UNIT 

A file was open on a unit and another DEFINE FILE 
was attempted on that unit. 

Close the open file using the CLOSE statement 
before attempting another DEFINE FILE. 


(continued on next page) 
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Error 

Error 



number 

type 

Message 


42 

FATAL 

MEMORY OVERFLOW COMPILING OBJECT TIME 
The OTS ran out of free memory while 

FORMAT 

scanning an 


array format generated at run time. 


(RT-11 only) 

Use a FORMAT statement specification at compile 
time rather than object-time formatting, or make 
more memory available by unloading unnecessary 
handlers, unloading the foreground job if 
possible, using the single-job Monitor, or SET USR 
SWAP, if possible. 


(RSTS/E only) 

Use a FORMAT statement specification at compile 
time rather than object-time formatting, or 
allocate more space by using the /K switch to 
LINK. 


43 FATAL SYNTAX ERROR IN OBJECT TIME FORMAT 

A syntax error was encountered while the OTS was 
scanning an array format generated at run time. 


44 


45 


46 


47 


FATAL 


FATAL 


FATAL 


FATAL 


Correct the programming error. 


2ND RECORD REQUEST IN ENCODE/DECODE 

An attempt was made to use ENCODE and DECODE on 

more than one record. 

Correct the FORMAT statement associated with the 
ENCODE or DECODE so that it specifies only one 
record. 

INCOMPATIBLE VARIABLE AND FORMAT TYPES 
An attempt was made to output a real variable with 
an integer field descriptor or an integer variable 
with a real field descriptor. 


Correct the FORMAT statement associated with the 
READ or WRITE, ENCODE or DECODE. 

INFINITE FORMAT LOOP 

The format associated with an I/O statement, which 
includes an I/O list, had no field descriptors to 
use in transferring those variables. 

Correct the FORMAT statement in error. 

ATTEMPT TO STORE OUTSIDE PARTITION (RT-11 only) 

In an attempt to store data into a subscripted 
variable, the address calculated for the array 
element in question did not lie within the section 
of memory allocated to the job. The subscript in 
question was out of bounds. (This message is 
issued only when bounds checking modules have been 
installed in FORLIB and threaded code is selected 
at compile time.) 

Correct the program logic. 


(continued on next page) 
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Error Error 

number type 

Message 

48 FATAL 

UNIT ALREADY OPEN 

An attempt was made to perform an illegal 

operation on an open file. 

49 FATAL 

ENDFILE ON RANDOM FILE 

An ENDFILE statement contains a unit number of a 
file that is open as a random access file. 

50 FATAL 

KEYWORD VALUE ERROR IN OPEN STATEMENT 

A numeric value specified for a keyword in the 
OPEN statement is not within the accepted range. 

Check the expression in the OPEN statement, and 
modify to yield a valid value. 

51 FATAL 

INCONSISTENT OPEN/CLOSE STATEMENT SPECIFICATIONS 
The specifications in an OPEN or subsequent CLOSE 
statement have indicated one or more of the 
following: 

• A ’NEW’ or 'SCRATCH' file that is 'READONLY'. 

• 'APPEND' to a 'NEW', 'SCRATCH', or 'READONLY' 
file. 

• 'SAVE' or ’PRINT* of a 'SCRATCH' file. 

• 'DELETE' or 'PRINT* of a 'READONLY' file. 

Correct the OPEN or CLOSE statement to remove the 
conf1ict. 

52 WARNING 

ATTEMPT TO DELETE A PROTECTED FILE (RT-11 only). 

An attempt was made through a DISP= 'DELETE' 
option in an OPEN or CLOSE statement to delete a 
protected file. Either unprotect the file or 
correct the conflict in the OPEN and/or CLOSE 
statement. 

53 WARNING 

LIST DIRECTED I/O SYNTAX ERROR 

The repeat count of the input record has the wrong 
type or value. The repeat count must be a 
positive non-zero integer. 

59 WARNING 

USR NOT LOCKED (RT-11 only) 

This message is issued when the FORTRAN program is 
started. If the program was running in the 
foreground, the /NOSWAP option was used during 
compilation, and the USR was swapping (for 
example, a SET USR NOSWAP command has not been 
done). 

Reexamine the intent of the /NOSWAP option at 
compile time and either compile without /NOSWAP or 
issue a SET USR NOSWAP command. 


(continued on next page) 
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Error Error 

number type Message 


60 


61 


62 


63 


64 


FATAL STACK OVERFLOWED 

The hardware stack overflowed. More stack space 
may be required for subprogram calls and opening 
of file. Proper traceback is impaired. This 
message occurs in the background only. Allocate 
additional space by using the /BOTTOM (/B) option 
at link time. Check for a programming error. 

FATAL ILLEGAL MEMORY REFERENCE 

Some type of bus error occurred, most probably an 
illegal memory address reference. 

If an assembly language routine was called, check 
for a coding error in the routine. Otherwise, 
insure that the correct FORTRAN library was 
called. 

FATAL FORTRAN START FAIL 

The program was loaded into memory but there was 
not enough free memory remaining for the OTS to 
initialize work space and buffers. 

(RT-11 only) 

If running a background job, make more memory 
available by unloading unnecessary handlers, using 
the single-job Monitor. If running a foreground 
job, specify a larger value using the FRUN /N 
option. Refer to Chapter 4 (SYSTEM SUBROUTINE 
LIBRARY) of the RT-11 Advanced Programmers Guide 
for the correct formula. 

(RSTS/E only) 

Allocate more space by using the /K switch to 
LINK. 

FATAL ILLEGAL INSTRUCTION 

The program attempted to execute an illegal 
instruction (for example, floating-point 

arithmetic instruction on a machine with no 
floating-point hardware). 

If an assembly language routine was called, check 
for a coding error in the routine. Otherwise, 
ensure that the correct FORTRAN library was 
called. 

FATAL VIRTUAL ARRAY INITIALIZATION FAILURE 

• The total storage requirements for VIRTUAL 
arrays in the program exceeds the currently 
available memory on the system. 

• Another job is currently using VIRTUAL support 
under the FB or SJ monitor. 

• PLAS VIRTUAL array support is attempted under 
the FB or SJ monitor. 

(continued on next page) 
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Error 

number 


65 


66 


67 


68 


69 


Error 

type 


FATAL 


FATAL 


WARNING 


FATAL 


FATAL 


Message 


Any non-PLAS VIRTUAL array 

attempted under XM monitor. 

PLAS support is attempted 

hardware. 


support is 
without EIS 


• VIRTUAL array support is attempted without OTS 
Library VIRTUAL support. 

If another job is currently executing (under XM 
monitor with PLA6 VIRTUAL support), make sure that 
the total VIRTUAL storage demands for both 

programs are satisfied by the available memory on 
the machine. 

Reduce VIRTUAL storage requirements by decreasing 
the size of VIRTUAL arrays declared in the 
program. 

VIRTUAL ARRAY MAPPING ERROR 

An attempt has been made to reference outside the 
bounds of the extended memory region allocated to 
VIRTUAL arrays in this program, probably caused by 
a subscript out of bounds. 

Verify that the subscripts of the VIRTUAL arrays 
referenced in the statement indicated are within 
the declared bounds. 

UNSUPPORTED OPEN/CLOSE KEYWORD OR OPTION 
A keyword or keyword value in the OPEN or CLOSE 
statement indicated is invalid under this 
particular operating system. 


Refer to Section 3.1.1 
restrictions. 


for system-dependent 


UNSUPPORTED OPEN/CLOSE KEYWORD OR OPTION 
A keyword or keyword value in the OPEN or CLOSE 
statement indicated is not meaningful in the 
current operating system environment. 

The presence of the keyword or option is ignored. 

DIRECT ACCESS RECORD SIZE ERROR 

The size of a direct access record exceeds 32767 
double words. 

Correct the program logic. 

Cannot send to QUEMAN (RSTS/E only). An error 
occurred when closing a file with attribute 
DISPOSE^PRINT*. 
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APPENDIX D 


COMPATIBILITY WITH OTHER PDP-11 LANGUAGE PROCESSORS 


FORTRAN IV is an implementation of FORTRAN for the PDP-11, available 
under RT-11, RSTS/E, RSX-llM, RSX-11M-PLUS, VAX/VMS under AME, and 
IAS. It has been designed to be upward compatible with FORTRAN IV. 
PLUS (F4P) and compatible with the earlier FORTRAN (FTN) on DOS-11 and 
RSX-11D V4A. However, some differences exist as a result of: 

• correcting deficiencies in FTN FORTRAN. 

• language specification decisions necessary to promote the goal 
of an upward compatible line of FORTRANS 

• providing significant extensions to FTN FORTRAN in a manner 
consistent with the FORTRAN language, the ANSI FORTRAN 
Standard and existing FORTRANs. 


D.l FORTRAN IV COMPATIBILITY WITH FTN V08.04 

This section summarizes differences that may affect conversion from 
FTN to FORTRAN IV. 

Items marked with an asterisk (*) denote differences from FTN which 
are common to both FORTRAN IV PLUS (F4P) and FORTRAN IV. 


D.1.1 Language Differences 

*1. FTN permits transfer of control to FORMAT statements, that 
execute as CONTINUE statements. FORTRAN IV does not, and 
issues compile-time error messages. 

*2. FTN V07.14 provided an uncounted form for Radix-50 constants 
used in DATA statements. V08.04 added the counted form and 
promised de-support of the uncounted form. Only the counted 
form is provided in FORTRAN IV. 

3. In FORTRAN IV, the syntax of the IMPLICIT statement is 
different from that required by FTN. 

4. FTN provides expressions in FORMAT statements (called 
variable format expressions); FORTRAN IV does not. 
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D.1.2 Implementation Differences 

*1. FTN allows both formatted and unformatted records in the same 
file by means of the MXDFUF subroutine call. This feature is 
not supported in FORTRAN IV. 

*2. The FTN service subroutines PDUMP and SETPDU are not provided 
in FORTRAN IV. Similar but more flexible debugging output 
may be obtained by using WRITE statements in debug lines. 

*3. The TRCLIB library for statement level execution tracing is 
not available in FORTRAN IV. 

*4. Under FTN, Q format returns the number of characters in the 
input record (for example, the record length) independent of 
the current scan position. Under FORTRAN IV., Q format 
returns the number of characters remaining in the input 
record following the scan position. The record length may be 
obtained by using the Q format first in the format 

specification. 

*5. FTN performs the following actions when opening a unit for 

direct access I/O: 

• If the file exists; the existing file is used 

• If the file does not exist; a file is created for use 

In FORTRAN IV, the type of open depends on whether a READ or 
WRITE statement is causing the open operation. If it is a 
READ, then the file must already exist or an error results. 
If it is a WRITE, then a new file is created. 

*6. The implementation of error handling in FORTRAN IV is 

significantly different from that in FTN. in particular, the 
use of error classes for controlling error handling is 
replaced by control over each individual error condition. 

*7. FTN does not compile format specifications for use at run 

time, whereas FORTRAN IV does. One difference results: 

Format specifications stored in arrays are recompiled at 
run time each time they are used. If an H format is used 
in a READ statement to read data into the format itself, 
that data does not get copied back into the original 
array. Hence, it will not be available on a subsequent 
use of that array as a format specification. This is in 
accord with the ANSI FORTRAN language specification. 

This consideration does not apply to format specifications 
defined in FORMAT statements. 

*8. FTN implements the ENDFILE statement as a close operation. 
FORTRAN IV implements the ENDFILE statement by writing an end 
of file record in a file. 

9. FORTRAN IV checks that the labels used in an assigned GOTO 
are valid labels in the program unit, but it does not check 
at run time whether an assigned label is in the list in the 
GOTO statement. FTN checks at run time. 

10. The FTN /-ON compiler option switch causes two-word 
allocation (instead of one-word allocation) of all INTEGER 
and LOGICAL variables. The similar FORTRAN IV. 14 (/T) 
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TM>pcv'c> er ? ption affects allocation of unspecified size 
INTEGER variables only; unspecified LOGICAL variables are 
always allocated two words in FORTRAN IV. 

11. The FTN and F4P implementations of adjustable dummy arrays 
copy dummy argument dimension variables into an internal 
array descriptor upon entry to a subprogram. A subsequent 
assignment to a dummy argument dimension variable within that 
subprogram does not affect the array subscript calculation. 

FORTRAN IV. does not use array descriptor blocks, but rather 
references dummy argument dimension variables directly during 
subscript calculations. Hence, an assignment to a dummy 
argument dimension variable will affect array subscript 
calculations. 

12. FTN, in contrast to FORTRAN IV and F4P, does not enforce the 
PDP-11 Language Reference Manual 's restrictions concerned 
with modifying the control variable and the parameters of a 
DO loop within the body of the loop. 

13. Unlike FORTRAN IV and F4P, FTN defines named COMMON blocks in 
terms of named .CSECTs. 


D.2 DIFFERENCES BETWEEN FORTRAN IV-PLUS AND FORTRAN IV 

This section summarizes differences that may affect conversion from 
FORTRAN IV to FORTRAN IV PLUS. 


D.2.1 Language Differences 

F4P transforms FORTRAN defined function name references into a special 
kind of internal calling form, while FORTRAN IV. does not. If a user 
supplies a routine of his own to replace the F4P FORTRAN defined 
routine (for example, writes his own SIN routine) it will generally be 
necessary to include EXTERNAL statements (with the user name prefixed 
by an asterisk, '*') to cause that routine to be referenced. This is 
not necessary in FORTRAN IV. 


D.2.2 Implementation Differences 

1. FORTRAN IV logical tests treat any non-zero bit pattern in 
the low-order byte of a LOGICAL variable as .TRUE., and an 
all-zero bit pattern as .FALSE. 

F4P tests only the highest-order bit of the value and treats 
a one as .TRUE. and a zero as .FALSE. 

2. In FORTRAN IV, INTEGER*4 causes 32-bit allocation (4 bytes), 
but only 16 bits are used for computation. In F4P, INTEGER*4 
causes both 32-bit allocation and 32-bit computation. 

3. FORTRAN IV. checks that the labels used in an assigned GOTO 
are valid labels in the program unit, but it does not check 
at run time whether an assigned label is in the list in the 
GOTO statement. F4P does check at run time. 
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4. FORTRAN IV permits an unlimited number of continuation lines. 
In F4P, up to 5 continuation lines are permitted by default, 
and up to 99 may be obtained by means of the compiler /CO 
switch. 

5. For unformatted input/output operations, both sequential and 
direct access, FORTRAN IV reads/writes four bytes of data if 
the variable is allocated four bytes of storage. F4P does 
also. However, since INTEGERM values in FORTRAN IV 
generally have an undefined high-order part, they generally 
may not be read as INTEGERM values by F4P. Similarly, since 
FORTRAN IV and F4P logical tests are different (see item 1 
above), care must be taken when interchanging logical values. 

6. For random access input/output operations, FORTRAN IV takes 
the END= exit on an end-file condition and the ERR= exit only 
for hardware I/O errors. F4P ignores any END= specification 
and takes the ERR= exit for both. 

7. In performing formatted I/O under A format, FORTRAN IV clears 
the high-order bit of each transferred character and discards 
null characters (bytes of zeroes); FORTRAN IV RSX/IAS and 
FORTRAN IV PLUS do neither. 


D.3 RSTS/E FORTRAN IV FILE COMPATIBILITY 

RSTS/E FORTRAN IV can read and write files compatible with the other 
language processors available on the RSTS/E operating system 
(BASIC-PLUS and BASIC-PLUS-2). Certain file formats, however, are not 
supported under FORTRAN IV. Also, care must be taken when creating 
files with FORTRAN if they are to be processed by a program written in 
another language. 


D.3.1 Sequential Stream A6CII Files 

FORTRAN IV, BASIC-PLUS, and BASIC-PLUS-2 share the concept of 
sequential stream files composed of ASCII data. In FORTRAN, this type 
of file is accessed with formatted READ and WRITE statements. 
BASIC-PLUS and BASIC-PLUS-2 process stream files through the INPUT, 
INPUT LINE, and PRINT statements. 

A stream ASCII file consists of variable-length data records 

terminated by a carriage control sequence, usually CR - LF. No 

extraneous formatting information (such as byte counts or checksums) 
is included in the file. 

BASIC-PLUS and BASIC-PLUS-2 programs create this type of file by 
default. FORTRAN will accept files structured in this fashion in 
formatted READ statements. 

To create compatible files with the FORTRAN formatted WRITE statement, 
care must be taken to assure proper positioning of carriage control 
information. By default, FORTRAN records begin with the vertical 
forms control characters required for the record to be written, 

followed by the data record itself, and terminated by a carriage 

return character. For example, the statements: 

TYPE 100 

100 FORMAT( 1 HELLO') 
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will create the following record: 
© HELLO ® 


where 

© represents the line feed character and ® denotes the carriage 
return character. It is desirable to create records terminated by the 
carriage return-line feed sequence for compatibility. The previous 
example may be rewritten to achieve this: 

TYPE 200 

200 FORMAT( 1 +HELLO 1 /) 

The ' + * character suppresses the initial line feed generated by 
default, and the '/' record terminator causes the line feed to be 
generated at the end of the record, as desired. 

Note that the above technique applies only to files that have been 
created with the 'CC' attribute in CALL ASSIGN or CALL OPEN. By 
default, files output to non-printing devices have carriage control 
translation suppressed. Such files consist of an initial line feed 
character, followed by records in the standard stream ASCII format 
(i.e., terminated by ® - © sequences). 


D.3.2 Virtual Array Piles 

The BASIC-PLUS language provides the capability to create files which 
are accessed from the program as arrays of data elements. All 
'records' in the file are of a fixed length, usually one integer or 
floating-point value. String virtual arrays are also provided. 

FORTRAN programs can read and write virtual array files in a very 

straightforward fashion. For example, consider the integer virtual 
array referenced by the following BASIC-PLUS dimension statement: 

DIM # chan,I %(9999%) 

To read this array file from FORTRAN, the programmer would first 
describe the file format with the DEFINE FILE statement as follows: 

DEFINE FILE unit (10000,1,U , ivar) 

Note that this statement establishes the size of each record as one 
word (the second argument inside parentheses), and indicates that the 
number of such records in the file is 10000. The file may now be 

accessed by the statement: 

READ (unit'index)ivalue 

where index represents the subscript to be used (note that FORTRAN 
subscripts begin at one, whereas BASIC-PLUS uses zero-origin 

indexing). The value of the selected element will be read into the 
integer variable specified by ivalue. To handle virtual arrays of 
floating-point values, the same format for the DEFINE FILE statement 
is used, replacing the size of the record in words with the value 
appropriate to the math package used by the BASIC-PLUS program in 
question. (If the two-word math package was used to create the file, 
the value 2 should be specified as the second argument inside 

parentheses; 4 is appropriate to the four-word math package.) 
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To handle two-dimensional virtual arrays, the DEFINE FILE statement 
must be coded to account for the total number of elements in the 
array. For example, the following BASIC-PLUS dimension statement 
allocates a two-dimensional integer array: 

DIM #chan,1%(m,n) 

where m and n specify the array dimensions (remember that indexing 
starts at zero in BASIC). The equivalent DEFINE FILE statement is: 

DEFINE FILE unit ((m+1)*(n+1),1,U r ivar) 

The expression (m+1)*(n+1) computes the number of array elements 
specified by the previous DIM statement. To access this array as in 
the following BASIC-PLUS line: 

11% = I % (J %,K%) 

the FORTRAN programmer must compute the vector index as: 

READ (unit' (J* (n+1) + K + 1))11 

To access a string virtual array, the DEFINE FILE statement should 
specify the maximum string size divided by two (as element sizes are 
specified in words). For example, the BASIC-PLUS statement: 

DIM #chan,A$(100%) = 128% 

would be equivalent to the DEFINE FILE statement: 

DEFINE FILE unit (101,64, U, ivar) 

The strings may be stored in the FORTRAN program in LOGICAL*l arrays 
of the appropriate length. The following FORTRAN code will read one 
element of the virtual string array specified in the above example: 

LOGICAL*1 STRING(128) 

READ (unit'index) STRING 

Strings stored in virtual array files are padded on the right with 
null characters (000 octal) to the specified record length. 

For more information on string array refer to the BASIC-PLUS Language 
Reference Manual. 


D.3.3 BA6IC-PLUS Record I/O Files 

BASIC-PLUS record I/O files may be accessed from FORTRAN programs 
using the direct access I/O facility. The DEFINE FILE statement 
should specify the number of words in each logical record of the file 
as the size. FORTRAN direct access I/O demands that all records of 
the file have the same length. If this is true of the record I/O file 
in question, the FORTRAN system will do all record blocking/deblocking 
for the user. If the file in question has records of several 
different sizes, the programmer should read the file on a 
block-by-block basis. 

To read the file on a block-by-block basis, the DEFINE FILE statement 
specifies 256 as the record size. Each record is read into a 256-word 
array area (usually an INTEGER*2 array of 256 elements). The 
programmer must then find the records desired in each block by 
indexing through the buffer array. 
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When accessing values stored using the CVT%$ and CVTF$ functions, or 
when creating files to be read by BASIC-PLUS programs that will use 
the CVT$% and CVT$F functions to retrieve values, special care must be 
taken. The CVT%$ and CVTF$ functions store the binary values 
byte-reversed from the normal orientation expected by FORTRAN (and the 
representation in virtual array files). For example, the function 
call CVT % $(13%) returns the value 000,015 as octal byte values (with 
000 as the low-order byte and 015 as the high-order byte). Hence, the 
FORTRAN programmer must reverse the bytes of each word of a value 
written by a BASIC-PLUS program that uses these functions. To perform 
the required byte-reversal operation on a floating-point value that 
has been read into the variable A, the following code can be used: 

REALM A 

LOGICAL*l TEMP(4),T 
EQUIVALENCE (A,TEMP) 

T = TEMP(1) 

TEMP(1) = TEMP(2) 

TEMP(2) = T 
T = TEMPO) 

TEMPO) = TEMP (4 ) 

TEMP(4) = T 

When writing files to be read by BASIC-PLUS, the byte reversal 
operation must also be performed. 
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THE FORTRAN IV SYSTEM SIMULATOR ($SIMRT) 

E.l $SIMRT CAPABILITIES AND RELATIONSHIP TO RT-11 
$SIMRT supports the following RT-11 monitor calls: 


EMT 

240 


.WAIT (NOP) 

EMT 

340 


.TTYIN, .TTINR 

EMT 

341 


.TTYOUT, .TTOUR 

EMT 

342 


.DSTATUS (only for TT:) 

EMT 

346 


.LOCK (NOP) 

EMT 

347 


.UNLOCK (NOP) 

EMT 

350 


.EXIT 

EMT 

351 


•PRINT 

EMT 

353 


.QSET (NOP) 

EMT 

354 


.RCTRLO 

EMT 

374 

Subcode 8. 

•DATE(returns 0) 

EMT 

375 

Subcode 0, 
Subcode 3, 
Subcode 16, 
Subcode 24, 
Subcode 27, 

.WAIT (NOP) 

.TRPSET 

.GTJB (no channel table adrs) 
. SFPA 

.CNTXSW (NOP) 


Any others create an error condition and a printed message. 

E.2 $SIMRT TERMINAL HANDLING 

$SIMRT terminal I/O is fully interrupt-driven and ring-buffered. 
The following features are supported: 

CTRL-S, CTRL-Q (XON, XOFF) — "SET TT PAGE" mode 
CTRL-0 to cancel terminal output 
CTRL-U to cancel input line 
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Rubout to delete previous character (echoes backslashes) 

CTRL-C to abort execution 

Conversion of TABs to spaces on output 

Output of altmode (escape) as "$" 

Output of CTRL characters as "~char" 

Support of lowercase input if done with .ASECT, for example: 
.ASECT 

. =44 ;for JSW 
.WORD 040000 

Support of RT-11 style fill character and count with .ASECT, i.e. 
.ASECT 

. = 56 ;for fill char and count 

.BYTE 015,004 ;four nulls after carriage return 
The TT$SPC mode (single-character mode) is not supported. 


E.3 SYSLIB CALLS UNDER $SIMRT 

Routine Name Valid? Routine Name Valid? 


CHAIN 

No 


ISPY 

No 


CLOSEC 

No 


ITIMER 

No 


CONCAT 

Yes 


ITLOCK 

No 


CVTTIM. 

Note 

#i 

ITTINR 

Yes 


DEVICE 

No 


ITTOUR 

Yes 


GETSTR 

Yes 


ITWAIT 

No 


GTIM 

No 


IUNTIL 

No 


GTJB 

Note 

#2 

IWAIT 

Note 

#2 

GTLIN 

No 


IWRITE,W,C,F 

No 


IADDR 

Yes 


JADD 

Yes 


IASIGN 

Note 

#2 

JCMP 

Yes 


ICDFN 

No 


JDIV 

Yes 


ICHCPY 

No 


JAFIX 

Yes 


ICMKT 

No 


JDFIX 

Yes 


ICSI 

No 


IDJFLT,DJFLT 

Yes 


ICSTAT 

No 


IAJFLT,AJFLT 

Yes 


IDELET 

No 


JICVT 

Yes 


IDSTAT 

Note 

#2 

JJCVT 

Yes 


I ENTER 

No 


JMOV 

Yes 


IFETCH 

No 


JMUL 

Yes 


IFREEC 

Note 

#2 

JSUB 

Yes 


IGETC 

Note 

#2 

JTIME 

Note 

#1 

IGETSP 

Yes 


LEN 

Yes 


IJCVT 

Yes 


LOCK 

Note 

#2 

I LUN 

Note 

#2 

LOOKUP 

No 


INDEX 

Yes 


MRKT 

No 


INSERT 

Yes 


MTATCH 

No 


INTSET 

No 


MTDTCH 

No 


I PEEK 

Yes 


MTGET 

No 


IPEEKB 

Yes 


MTIN 

No 


I POKE 

Yes 


MTOUT 

No 


IPOKEB 

Yes 


MTPRNT 

No 



(continued on next page) 
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Routine Name 

Valid? 

IQSET 

Note #2 

I RAD50 

Yes 

IRCVD,W,C,F 

No 

IREAD,W,C,F 

No 

IRENAM 

No 

IREOPN 

No 

ISAVES 

No 

ISCHED 

No 

ISDAT,W,C,F 

No 

ISLEEP 

No 

ISPFN,W,C,F 

No 


Routine Name 

Valid? 

RESUME 

No 

SCCA 

No 

SCOMP 

Yes 

SCOPY 

Yes 

SECNDS 

No 

SETCMD 

No 

STRPAD 

Yes 

SUBSTR 

Yes 

SUSPND 

No 

TIMASC 

Note #1 

TIME 

No 

TRANSL 

Yes 

TRIM 

Yes 

UNLOCK 

Note #2 

VERIFY 

Yes 


Routine Name 

Valid? 

MTRCTO 

No 

MTSET 

No 

MWAIT 

No 

PRINT 

Yes 

PURGE 

No 

PUTSTR 

Yes 

R50ASC 

Yes 

RAD50 

Yes 

RCHAIN 

Note #2 

RCTRLO 

Yes 

REPEAT 

Yes 


Note #1: 


$GVAL: 


Note #2: 


Will operate if the following user routine is 
added: 

.GLOBL $GVAL 

CLR RO (if 60-cycle clock) 

MOV #40,RO (if 50-cycle clock) 

RTS PC 

(This routine should be in .PSECT USER$I) 

Operates correctly, but is not useful in the 
$SIMRT environment. 



E.4 MODIFYING SIMRT 

To modify the stand-alone FORTRAN support module, SIMRT, obtain a copy 
of SIMRT.MAC and FRT.MAC from your binary distribution medium 
according to the procedures described in the RT-11 Installation 
Guide/Release Notes or the RSTS/E Installation Guide/Release Notes, as 
appropriate.If you wish to modify SIMRT.MAC, for example, to support 
new devices, be certain that MACRO.SAV, and SYSMAC.SML are on your 
system volume. The command procedures (provided below) will not work 
without them. Next, assemble SIMRT.MAC by typing the following 
command: 

.MACRO/LIST:SIMRT/OBJECT:UNI FRT+SIMRT 
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This command produces a listing file named SIMRT.LST and an object 
file named UNI.OBJ. 


Next, place the new stand-alone support module in the FORTRAN OTS 
Library using the appropriate command procedure: 

If your FORTRAN OTS Library is in SY6LIB, then proceed as follows: 


RT-11 

.R LIBR 

♦SY6LIB[-1]=SY6LIB,UNI/U/G 

Global? $ERRS 

Global? $ERRTB 

Global? $OVRH 

Global? d5 

♦~C 


RSTS/E 

.R LIBR 

*SYSLIB[-1)=SY6LIB,UNI/U 

♦*c 


If your FORTRAN OTS Library is in FORLIB, however, then proceed as 
fo1lows: 

RT-11 RSTS/E 


.R LIBR 


.R LIBR 

*FORLIB[ 

-1]=FORLIB,UNI/U/G 

♦FORLIB[-1]=FORLIB , UNI/U 

Global? 

$ERRS 

♦~c 

Global? 

$ERRTB 


Global? 

*‘C 

®) 

• 


The new version of stand-alone FORTRAN support is now part of your 
FORTRAN OTS Library. 

NOTE 

You must assume responsibility for 
changes, such as those shown above, that 
you make to SIMRT.MAC or to FRT.MAC. 

Such changes are not supported by 
DIGITAL. 
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C 

O 



A 

Absolute binary format (LDA), 

1-18, 1-22 

ACCEPT statement, 3-6 
Argument, 

passing using COMMON, 4-2 
transmission of, 2-9 
Arguments, ASSIGN routine, B-2 
Arrays, 

multi-dimensional, 2-12, 2-13 
use of, 4-3 

passed to subprograms, 2-12 
optimizing, 4-2 
storage space, 2-12 
two-dimensional, 2-13 
vector maps, 2-13 
vectored, 2-12 to 2-13 
table storage reduction, 4-2 
virtual, 2-4 to 2-8 
zeroing large, 4-6 
ASCII characters, 3-7 
RADIX-50 equivalents, 
table of, A-4 
records, 3-6 

transfer of files, 3-7 
Assembler, MACRO, 1-17 
Assembly language subroutines, 
1-27, 2-10 
ASSIGN command, 3-5 
ASSIGN subroutine, 1-25, B-l, B-2 
Assigned GOTO, 4-4 


B 

BACKSPACE statement, 3-7 
BASIC-PLUS files, D-6 
Binary, 

conveying data, 3-7 
exponents, A-l 
output file (binout), 1-20 
records, 3-6 
Blank COMMON, 1-15 
Blank records, 3-4 
Blanks, imbedded in command 
string, 1-7 

BLOCK DATA statement, 2-1 
Blocks, COMMON, 1-15, 1-25, 1-26, 

2-17 

Buffered I/O, 3-8 
Buffers, internal, B-3 

c 

Carriage control, 3-7, B-3, B-4 
Carriage return, 3-5 


CALL statements, 2-10 
Calling program, 

passing control to, 2-9 
CCL (Concise Command Language), 
5-1 to 5-2 

restricted switches, 5-2 
Character, 

ASCII, A-5 

line feed, 3-4, 3-7 

RADIX-50, A-4 

CLOSE subroutine, B-l, B-6 
Code, 

in-line, 1-2, 1-3, 2-1, 2-2 
object, 1-15, 2-1 
threaded, 1-2, 1-3, 2-1, 2-2 
Code selection, 1-3 
Command string, 1-1, 1-7 
compiler, 1-1, 5-1 
imbedded blanks in, 1-7 
linker, 1-1, 1-17 

switch options in, 1-9 
COMMON, 

blank, 1-15 

block, 1-15, 1-25, 1-26, 2-17 
data initialized, 1-26 
DATA statements, 1-26, 1-27, 

3-1 

using to pass arguments, 4-7 
variables, initialization of, 
3-4 

Compatibility, language, D-l 
Compiler, 

command sequence, 1-1 
command string, 1-1, 1-7 
error diagnostics, C-l 
fatal, C-13 
warning, C-12 
errors, 

initial phase, C-2 
secondary phase, C-4 
generated code, 1-2, 1-3, 2-1, 
2-2 

input files, 1-7 
listings, 1-8, 1-11 
memory requirements, 1-16 
object code, 1-15 
options, 1-2 
output files, 1-7 
referencing library 
instruction, 2-1 
running the, 1-7 
switches, 1-9 

Compiling a program, steps in, 
1-1 

example of, 

RSTS/E, 1-8 
RT-11, 1-7 
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INDEX 


Compiling a program, steps in,(Cont.) 
increasing effectiveness of, 

4-1 

sample listing, 1-13 
statistics listing, 1-14 
COMPLEX format, A-2 
C0MPLEX*8, 4-4 
Concise Command Language 
(CCL), 5-1 to 5-2 
Conditional (/D) compilation 
switch, 1-31 

Configurations and valid object 
code options, 1-2 
Continued lines, 3-4 
Core image file LOAD.SAV, 1-20 


D 

/D (Comment), 

conditional compilation, 1-31 
Data, 

ASCII, 3-6, 3-7, A-4 
binary, 3-7 
conversions, 4-4 
representation, A-l 
DATA statement, 1-26, 3-1, 3-4, 
4-7 

Data types, 4-4 
DATE subroutine, B-l, B-6 
Debugging FORTRAN IV, 1-31 
DECODE statement, 3-4 
Default devices and file 
names, 3-5 

Default memory, 1-7, 1-8 
DEFINE FILE statement, 3-6 
Device, 

changing default, 3-5 
code, 1-3 

random access, 1-20 
specifications, 1-4 
Diagnostics, error, 
compiler, C-l 
fatal, C-l3 
warning, C-12 
Object Time System, C-14 
DIMENSION statement, 2-6 
Direct access 
files, 3-6 
input/output, 3-8 
Directory, user's, 1-7 
Dividing a program, 1-25 
DO loops, 

increment parameter in, 4-5 
nesting of, 4-6 
Dollar sign ($) , 

format separator, 3-7 
DOUBLE PRECISION, 
data type, 4-4 
format, A-2 


E 

ENCODE statement, 3-7 
END statement, 3-6 
ENDFILE record, 3-8 
Equivalents, ASCII/Radix-50, 

A-5 

ERR= parameter, 3-1, 3-7 
Errors, 

compiler, C-l 
fatal, C-13 
initial phase, C-2 
secondary phase, C-4 
warning, C-12 
locating run-time, 2-17 
message format, C-l 
Object Time System, C-14 
run-time, 2-17, 3-7 
Execution procedures, 1-30 
on a satellite machine, 1-28 
EXIT subroutine, B-l, B-7 
Exponents, binary, A-l 
.ext (extension), 1-3, 1-6 
External subroutine, 
assigned GOTO, 4-4 

F 

Fatal errors, compiler, C-13 
File, 

ASCII, 3-7 

sequential stream, D-4 
transfer of, 3-7 
BASIC-PLUS, D-6 


binary (1 

binou 

t) , 1- 

22 

compatib 

ility 

, D-4 


compiler 

output, 1- 

7 

LOAD.SAV, 1- 

-17, 3 

-6 

IAM, D-7 




input, 1- 

-3, 1- 

-6, 1- 

7 

1ibrary, 

in command 

string , 

load map 

(mapout), 

1-17 

locating 

, 1-7 



mode, 




’NEW', 

B-3, 

B-4 


'OLD', 

B-3, 

B-4 


'RDO', 

B-3, 

B-4 


'SCR', 

B-3, 

B-4 



multiple input, 1-7 
specification, load map, 1-17 
VIRTUAL array, 2-4, D-5 
File name, 

default assignments, 3-5 
extensions, 1-6 
specifications, 1-3, 1-7 
FIND statement, 3-6 
Floating-point formats, A-l 
FORLIB (FORTRAN IV System 
Library), 1-7 
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Format separator ($), 3-7 
FORMAT statement, 3-7, 4-4 
Formatted input/output, 3-7, 4-3 
FORTRAN data representation, A-l 
FORTRAN IV, 

compatibility, 

RSTS/E file, D-4 
with FTN V08.04, D-l 
debugging, 1-29 
differences (IV and IV-PLUS), 
D-3 

operating environment, 2-1 
stand-alone, 1-27 
system library (FORLIB), 1-17 
using the system, 1-1 
FORTRAN statement, 3-1 
Four-word floating point format, 
A-2 

FPU (floating point unit) status, 
2 - 11 , 2-12 
Fractions, A-l 
Function, 

mapping, 2-12 
statement, 4-2 
subprogram, 2-11 


G 

Generated code, listing, 1-15 
GOTO statements, 4-4 


H 

Handler, overlay, 1-26 
Hardware registers, 2-11 
Hollerith format, A-3 

I 

IAM files (Indexed Access 
Method), D-7 

IDATE subroutine, B-l, B-7 
Increment parameter in DO loops, 
4-5 

Initial phase errors, C-2 
In-line code, 1-2, 1-3, 2-1, 2-2 
Input files, 

assumed extension, 1-6 
file name specification, 1-3 
multiple, 1-7 
Input/output, 

direct-access, 3-8 
efficient operation of, 3-8 
'FOR* (formatted), B-5 
format of, 3-7 

formatted routines, 3-7, 4-4 
•RAN* (random-access), B-5 


Input/output, (Cont.) 

•UNF* (unformatted), B-5 
unformatted routines, 3-7 
INTEGER mode, 

calculations in, 4-6 
data type, A-l, 4-4 
Internal buffers, B-3 

Internal sequence numbers, 1-15 
Internal subroutines, 4-2 

ISN (internal statement numbers) 
2-5 

J 

Job, virtual, 1-27, 1-28 


L 

LDA output file, 

absolute binary format, 1-6, 
1-18, 1-20, 1-22, 1-28 
save image format, 1-17 
Library, 

creation, 1-24 
file, 1-24 

modification of, 1-25 
routines, 2-2 
subroutine summary, B-l 
system, 1-7 

Line feed character, 3-6 
Linker (LINK), 1-17, 2-16, 5-1 
command, 1-17, 1-20 
command string, 1-1 
linking procedures, 1-17 
for subprograms, 2-9 
memory value, 1-23 
object module, 1-17 
overlay feature, 1-25 
root segment, 1-25 
RSTS/E linking, 1-20 
RT-11 linking, 1-17 
switches, 1-21 
Listing, 

compilation statistics, 1-14 
expanded, 1-9 
formats, 1-11 
generated code, 1-5 
optional sections, 1-9 
options, 1-15 
sample compilation, 1-13 
source, 1-15 
storage map, 1-15 
LOAD.LDA command sequence, 1-28 
Load map (mapout) file, 1-17 
specification, 1-17, 1-21 
LOAD.SAV core image file, 1-21 
Locating a file, 1-7 
LOGICAL (LOGICAL*4) format, A-3 
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LOGICAL*1 format, A-3 

Logical units, 
assignments, 3-5 
maximum open (NLCHN), 1-15 
numbers (LUNs), 3-5 
Loop, 

calculations outside, 4-6 
calculations within, 4-7 
LRECL (maximum record length), 
1-15 


M 

MACRO assembler, 1-17 
Maps, 

array vector, 2-12 
load (mapout) file, 1-21 
mapping function, 2-12 
subprogram vector, 2-12 
Memory, 1-16, 2-18, 2-19 

read-only, (ROM), 1-27, 2-16, 
2-17 

VIRTUAL, 2-5 
Mode, 

calculation in INTEGER, 4-4 
file, 

'NEW* (new file), B-3, B-4 
•OLD* (existing file), B-3, 

B-4 

1 RDO 1 (read only), B-3, B-4 
•SCR' (temporary), B-3, B-4 
mixed, 3-8, 4-4 
Modules, 

linker object, 1-17 
system simulator ($SIMRT), 
1-28 

Multi-buffering, B-3 
Multi-dimensional arrays, 2-12, 
2-13, 4-3 


N 

Nesting of DO loops, 4-6 
NLCHN (maximum open logical 
units), 1-15 
Numbers, A-l 


o 

Object, 

program efficiency, 4-1 
time format, 4-3 
Object code, 1-2, 1-15, 2-1 
Object modules, linker, 1-17 
Object Time System (OTS), 2-1, 

C-l 3 

OPEN statement, restrictions, B-4 


OPEN subroutine, B-l, B-3, B-4 
Operations (*2, **2), 4-5 
Optimizer, effective use of, 4-1 
Optional listing sections, 1-9, 

1- 15 

Options, compiler, 1-2, 1-3, 1-9 
Options, linker, 

RSTS/E, 1-21 
RT-11, 1-17 

OTS (Object Time System), 2-1 
error diagnostics, C-13 
Output file, 

absolute binary format, 1-22 
compiler, 1-12 
default extension, 1-6 
name specification, 1-3 
Output format, 3-7 

see also Input/output 
Overlay, program, 1-24 to 1-27, 

2- 16, 5-2 


P 

Parameter, ERR=, 3-1, 3-7 
Parity bit, ASCII, 3-7 
PAUSE statement, 3-4, 3-6, 3-8 
PRINT statement, 3-6 
Program, 

calling, 2-10 
compiled, 

protection code, 1-6 
division, 1-15 
main, placement of, 1-20 
overlay, 2-16 
preparing source, 1-1 
steps in executing, 1-1 
storage required, 1-9 
system, invoking RSTS/E, 5-1 
Program Logical Address Space 

(PLAS), use with VIRTUAL, 2-5 
Program sections (PSECT), 

1-15, 2-14 to 2-17, 5-2 
assembly language in, 2-16 
attributes, 2-14 
COMMON in, 2-15 
compiled output, 2-14 
MACRO in, 2-17 
ROMs, building in, 2-16 
USR in, 2-16 
Program termination, 

fatal error condition, C-13 
Programming techniques, 
efficient, 4-5 
for division in programs, 

4-7 

minimizing execution space, 

4-4 

Project, programmer number 
tPrPn], 1-7 
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Protection code 
1-6 
PSECT 

see Program 


(<prot>), file, 
sections 


R 

RADIX-50 format, A-4 
RANDU, RAN subroutine, B-l, 

B-5, B-8 
format of, B-8 
READ statement, 3-5, 3-6 
REAL format, A-2 
REAL*4 data type, 4-4 
Record, 

ASCII, 3-7 
binary, 3-7 
changing length, 3-6 
maximum length, 1-15, 3-6 
formatted, 3-7 
Region, overlay, 1-25 
Register, 

assignments, 2-11 
hardware, 2-11 
subprogram usage, 2-11 
Register 5 (R5), 2-10 
Relocatable code, specifying 
address of, 1-20, 1-22 
REWIND statement, 3-8 
ROM (read-only memory), 1-27 
2-16, 2-17 

Root segment, linker, 1-25 
RSTS/E, 

compilation and memory require¬ 
ments, 1-16 

linking procedure, 1-20 
RT-11, 

compilation and memory require¬ 
ments, 1-16 

linking procedure, 1-17 
RUN command, 1-1, 1-8 
Run-time errors, 

interception of, 3-7 
locating, 2-17 
Run-time memory, 2-18, 2-19 


s 


Satallite machine, 1-27 
ROM applications, 1-27 
Secondary phase errors, 
compiler, C-4 
summary, C-4 
Segment, 

memory, 2-18 
overlay, 1-25 

Sequential stream ASCII files, 
D-4 


SETERR subroutine, B-l, B-8, 

C-l 3 

$SIMRT, E-l 
Size, overlay, 1-26 
Source listing, 1-14 
Source program, preparing a, 

1-1 

Specifications, 
device, 1-4 
file name, 1-3 
Stack, hardware, 1-21, 1-23 
contents of, 2-11 
Stand-alone FORTRAN programs, 1 
Statement, FORTRAN, 3-1 
functions, 4-2 
Statements, 

ACCEPT, 3-6 
CALL, 2-10 
CLOSE, B-l, B-6 
DATA, 3-1 
DECODE, 3-4 
DEFINE FILE, 3-6 
ENCODE, 3-7 
END, 3-7 
FIND, 3-6 
FORMAT, 3-5, 4-3 
GOTO, 4-5 
OPEN, 3-1 

PAUSE, 3-4, 3-6, 3-8 
PRINT, 3-6 
READ, 3-6, 3-7 
STOP, 3-4, 3-5 
TYPE, 3-6 
WRITE, 3-7 

STOP statement, 3-4, 3-5 
Storage map listing, 1-15 
String, command, 1-7 
Structure, overlay, 1-26, 5-2 
Subprograms, 

arguments passed to, 4-2 
arrays passed to, 2-12 
control passed to, 2-9 
function, 2-11 
linkage, 2-9 
register usage, 2-11 
vector maps, 2-13 
Subroutines, assembly language, 
1-17 

internal, 4-2 
summary, B-l 

Subroutines, library, B-l 
ASSIGN, B-2 
CLOSE, B-6 
DATE, B-6 
ERRSNS, B-9 
ERRTST, B-8 
EXIT, B-7 
IDATE, B-7 
OPEN, B-3 
RANDU, RAN, B-8 
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Subroutines, library, (Cont.) 
SETERR, B-8, C-13 
USEREX, B-7 
Switch options, 1-2 
Switches, CCL command 
restriction, 5-2 
Switches, compiler, 1-9 
Switches, linker, 1-17, 1-21 
System library, 1-7 
System simulator, E-l 

T 

Threaded code, 1-2, 1-3, 2-1, 

2-2 

Traceback feature, 2-17 
Transferring ASCII files, 3-7 
Translation of carriage control, 
3-7, B-3 

Two-dimensional array, 2-12 
Two-word floating point format, 
A-2 

TYPE statement, 3-6 


u 

Unformatted input/output, 3-7 
USEREX subroutine, B-l, B-7 


User's directory, 1-7 

USR (User Service Routine), 2-18 


v 

Variables, COMMON, 3-4 
Vectored arrays, 2-12 to 2-13 
table storage reduction, 4-2 
VIRNP.OBJ, 2-5 
VIRP.OBJ, 2-5 
VIRTUAL array, 2-4 to 2-8 
VIRTUAL array files, D-5 
Virtual job, 1-27, 1-28 
VIRTUAL memory, 2-5 
VIRTUAL statement, 2-6 
.VSECT, 2-4 


W 

Warning diagnostics, compiler, 
C-l 2 

WRITE statement, 3-7 


z 

Zeroing a large array, 4-6 
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READER'S COMMENTS 


NOTE: This form is for document comments only. DIGITAL will 

use comments submitted on this form at the company's 
discretion. If you require a written reply and are 
eligible to receive one under Software Performance 
Report (SPR) service, submit your comments on an SPR 
form. 


Did you find this manual understandable, usable, and well-organized? 
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Did you find errors in this manual? If so, specify the error and the 
page number. 
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| | Assembly language programmer 
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